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Preface 


This publication tells how to use Assembler H. It describes assenbler 
options, cataloged job control language procedures, assembler listing 
and cutput, assembler data sets, error diagnostic facilities, sample 
ercgqrans, and programming techniques and considerations, 


Assenbler H is an assenbler-language processor for the IBM System/360 
Operating System. It performs high-speed assemktlies on an IBM 
System/360 Model 40 or higher and on an IBM System/370 Model 145, 
155, or 165 with at least 256K bytes of main storage. 


This manual has the following main sections: 


e Using the Assenbler 

e Assembler Listing Vescription 

° Assembler Diagnostic Facilities 
e Programming Considerations 


"Using the Assembler" describes the EXEC statement PARM field option, 
the data sets used by the assembler, and the jok control language 
cataloged procedures supplied by IBM. The cataloged procedures can 
be used to assemble, link-edit or load, and execute an asserbler 
program. 


"Assembler Listing Descrirticn" describes each field of the assembly 
listing. "Assembler Ciagnostic Facilities" descrikes the purpose and 
format of error messages, MNOTEs, and the MHELF macro trace facility. 
"Programming Considerations" discusses various topics, such as standard 
entry and exit precedures fcr problem programs, 


Arpendix A is a sample program which descrikes many of the assenbler- 
lanquage features, especially those unique to Assembler H. Appendix 
B is a sample MHELP macro trace and dump. Appendix C describes the 
object module output formats. Appendix D tells how to call the 
assembler dynamically frcm preblem programs. 


This publication is intended for all Assemtler H programmers. To use 
this publication, ycu shculd be familiar with the assembler language 
and with the basic concepts and facilities of the Operating Systen, 
especially job control language, data management services, supervisor 
services, and the linkage editor and loader. 


Assembler Publications 


The following publication contains a brief description of Assenrbler 
H and how it differs fron lcwer level Operating System/360 assemblers: 


IBM System/360 Operating System General Information Manual, Order Number 
GC26-3758 
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The follcwing rpuklicaticns describe the assembler language and the ‘ 
information required tc rur Assembler H programs: 


IBM System/360 Operating System Assembler Language, Order Number 
GC28-6514 


The Assembler Lanquage manual contains the basic assembler and macro 
assemkler specificaticrs, except those unique to Assembler H. 


IBM System/360 Operating System Assembler H Language Specifications, 
Order Number GC26-3771 


The Assembler H Lanquage Specifications describes the language features 
that are available with Assenbler H. It is supplemental to the 
Assembler Language manual listed above. 


IBM System/360 Operating System Assembler H Messages, Order Number 
SC26-3770 


The Messages manual provides an explanation of each of the diagnostic 
and abnormal terminaticn messages issued by Assembler H and how you 
should respond in each case. 


The following publications contain information used to install and 
maintain Assembler H: 


IBM System/360 Operating System Assembler H System Information, Order 
Number GC26-3768 


The System Infcrmation manual consists of three self-contained chapters 

cn performance estimates, storage estimates, and system generation 

cf Assembler H. 

eK 


IBM System/360 Operating System Assembler H Program Logic Manual, Order ‘ = 
Number LY26-3760 | = 


The Program Logic Manual describes the design logic and functional 
characteristics cf Assembler H. 


Operating System Publications 


The following puktlications contain information about the Operating 
System: 


IBM System/360 Operating System Concepts and Facilities, Order Number 
GC28-6535 


Concepts and Facilities introduces and interrelates all Operating 
System/360 control program facilities. It shows how these facilities 
work with the language translators and service programs, sc you can 
ketter learn hcw tc use the systen. 


IBM System/360 Operating System Job Control Language, Order Number 
GC28-6539 


The Jok Control Language book tells how to code the job control language 


necessary to initiate and control the processing of any program, and 
contains all cataloged procedures. 
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IBM System/360 Operating System Linkage Editor and Loader, Order Number 
GC28-6538 


The Linkage Editor and Loader manual provides information on the 
oreration and use of the linkage editor and loader, which are two 
programs that prepare the output of language translators for execution. 


IBM System/360 Operating System Supervisor and Data Management Macro 
Instructions, Order Number GC28-6647, and 

IBM System/360 Operating System Supervisor and Data Management Services, 
Order Number GC28-6646 


The Supervisor and Lata Management publications describe the pregram 
execution-time services available from the Operating System and the 
macro instructions required to use these services. 


IBM System/360 Operating System Utilities, Order Number GC28-6586 


The Utilities publication describes the utility programs of the 
Operating System. The asserbler-language programmer can use utilities 
to do such things as add macro definitions to a library. 


IBM System/ 360 Operating System Messages and Codes, Order Number 6C28- 
GC28-6631 


This publication contains the messages and completion codes issued 
ky the Operating Syster. (It does not contain the messages issued 
by Assemkler H.) 


IBM System/360 Operating System Programmer's Guide to Debugging, Order 
Number GC28-6670 


This publication describes dumps and other informwaticn issued by the 
Operating Systen when an assernbler-language program executes 
unsuccessfully. 
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Using the Assembler 


This section describes the assembly-time options available to the 
assembler-language programmer, the data sets used by the assembler, 
and the cataloged procedures of job control language supplied by IBM 
to simplify assembling, linkage editing or loading, and execution of 
assembly language programs. The job control language is described 

in detail in the Job Contrel Language publication, Order Number GC28- 
6539. 


Assembler Options 


Assembler H offers a number of optional facilities. For example, you 
can suppress printing of the assembly listing or parts of the listing, 
and you can specify whether you want an object deck or an object module. 
You select the oftions by including appropriate keywords in the PARM 
field of the EXEC statement that invokes the assembler, There are 

two types of options: 


e Simple pairs cf keywords: a positive form (such as LOAD) that 
requests a facility, and an alternative negative form (such as 
NCLCAD) that rejects that facility. 


e Keywords that permit you to assign a value to a function (such 
as LINECNT=50). 


Each of these options has a standard or default value which is used 
for the assembly if you do not specify an alternative value. The 
default values are explained in the following section, "Default 
Ortions." 


If you are using a cataloged procedure, you must include the PARM field 
in the EXEC statement that invokes the procedure. You must also qualify 
the keyword (PARM) with the name of the step within the frocedure that 
invokes the compiler. For example: 


1/ EXEC AS MHC, FARM. C="LCAL, NODECK'* 


The secticn "Overriding Statements in Cataloged Procedures" contains 
mcre examples on how to specify options in a cataloged procedure. 


PARM is a keyword parameter: code PARM= followed by the list cf options, 
separating the options by commas and enclosing the entire list within 
single quotes or parentheses. If there is only one option that does not 
include any special characters, the enclosing quotes or parentheses 

can be omitted. The option list mast not be longer than 100 characters, 
including the separating commas. You may specify the options in any 
order. If contradictcry crtions are used (for example, LIST and 
NOLIST), the rightmcst orftion (in this case, NCLIST) is used. 


The assembler options are: 


(DECK, LOAD, LIST, TEST, XREF, ALGN, RENT, ESD, RLD, MULT, 
PARM= or or or or or *LINECNT=nn’, or or or or or SYSPARM=xxx’; MSGLEVEL=nnn’) 
({NODECK,NOLOAD,NOLIST,NOTEST,NOXREF, /NOALGN,NORENT,NOESD,NORLD,NOMULT, 
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DECK -- The object module is placed on the device specified in the 
SYSPUNCH DD statement. 


LOAD -- The okject module is placed on the device specified in the 
SYSLIIN DD statement. e 


Note: The LOAD and DECK cftions are independent of each other. Both 
or neither can be specified. The output on SYSLIN and SYSPUNCH is 
identical except that the control program closes SYSLIN witha 
disposition of LEAVE and SYSPUNCH with a disposition of REREAD. 


ESD -- The assembler produces the External Symbol Dictionary as part 
of the listing. 


RLD -- The assembler preduces the Relocation Dictionary as part of 
the listing. 


MULT -- The assembler will do multiple (batch) assemblies under the 
control cf a single set of job control language cards. The 
source decks must Le placed together with no intervening /* 
card; a single /* card must follow the final source deck. 


LIST -- An assembler listing is produced. Note that the NOLIST 
option overrides the ESD, RLD, and XREF opticns. 


TEST -- The object module contains the special source symbol table 
required by the test translator (TESTRAN) routine. 


XREF ~-- The assembler produces a cross-reference table of symbols 
and literals as part of the listing. 


RENT -- The assembler checks for a possible coding violation of 
program reenterablility. 


LINECNT=nn -- The number of lines to be printed between headings 
in the listing is nn. The permissible range is 
1 to 99 lines. 


NOALGN -~ The assenbler surrresses the diagnostic message "IEV033 
ALIGNMENT ERROR" if fixed point, floating-point, or logical 
data referenced by an instruction operand is not aligned 
on the proper boundary. The message will be produced, 
however, for references to instructions that are not aligned 
on the proper (halfword) boundary or for data boundary 
violations for privileged instructions such as LPSW. See 
the "Special CPU Prcgramming Considerations" section for 
information on alignment requirements. 


ALGN -~- The assembler does not suppress the alignment error diagnostic 
message; all alignment errors are diagnosed, 
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y MSGLEVEL=nnn -- Error diagnostic messages below severity code nnn will 

ka not appear in the listing. Diagnostic messages can 
have severity codes of 0, 4, 8, 12, 16, or 20 (0 is 
the least severe). MNOTES can have a severity code 
of 0 through 255. 


For example, MSGLEVEL=8 will suppress messages for 
severity codes 0 through 7. 


SYSPAFM=xxx -- The character string xxx is the value of the system 
variable symbol &SYSPARM. The assembler uses &SYSPARM 
aS a read-only SETC variable. If no value is specified 
for the SYSFARM option, &SYSPARM will be a null (empty) 
character string. The function of &SYSPARM is explained 
in the Assembler H Language Specifications, Order Number 
GC26-3771. 


A tctal cf 100 characters is allowed in the PARM field 
of the EXEC statement. Thus, the maximum length of 
the SYSPARM character string is 100 minus the total 
number of other characters in the PARM field. (Commas 
separating crtions and guotes enclosing individual 
option values must also be counted.) Fcr exanrple: 


FARM="*SYSFARM=xxx'! 
xxx can be up to 92 characters 


FARM= (NCLCECK, 'SYSPARM=xxx") 
xxx can be up to 83 characters 


Commas are not allowed unless parentheses or quotes 
. surrcund the entire PARM value. Also, two quotes are 
[ \ needed to represent a single quote and two ampersands 
are needed to represent a single ampersand, For example: 
PARM='LOAD, SYSPARM= (&&AB,&&XY) ' 
PARM='"NODECK, SYSPARM=(''AB,''XY)' 


The SYSPARM character string is 6AB,&XY in the first 
example and ('AB, 'XY) in the second example. 


If you are calling the assembler from a prcblem program 


at execution time (dynamic invocation), SYSPARM can 
ke up to 256 characters long. 
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Default Options C 
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If you do not code an option in the PARM field, the assembler assumes 
a default cpticn. The following default options are included when 
Assembler H is shirred by IBM: 


PARM=(DECK,NOLOAD,LIST,NOTEST,XREF,*LINECNT=55’, ALGN,NORENT,ESD,RLD,NOMULT, SYSPARM=null’,, MSGLEVEL=0') 


However, these may not be the default options in effect in your 
installation. The defaults can be respecified when Assembler H is 
installed. For example, NCCECK can be made the default in place of 
CECK. Also, a default opticn can be specified during installation 
so that you cannot override it. 


The cataloged precedures described in this book assume the default 
entries. The section "Overriding Statements in Cataloged Procedures" 
tells you how to override them. First, however, check whether any 
default options have been changed or whether there are any you cannot 
override at your installation. 


Assembler Data Sets 


Assembler H requires the fcllowing data sets, as shown in Figure 1: 


od SYSUT1 -- utility data set used as intermediate external storage. 

foe 
e SYSIN -- an input data set containing the source statements to Cc; 
be processed. 


In addition, the fcllowing four data sets may ke required: 


) SYSLIR -- a data set containing macro definitions (for nacro 
definitions nct defined in the source program) and/or source code 
to be called for through COPY assembler instructions. 


° SYSPRINT -- a data set containing the assenkly listing (unless 
the NOLIST option is specified). 


e SYSPUNCH -- a data set containing object module output, usually 
for punching (unless the NODECK option is specified). 


e SYSLIN -- a data set containing object module output usually for 
the linkage editor (only if the LOAD option is specified). 


The akove data sets are described in the following text. The DD name 
that ncormally must be used in the DD statement describing the data 
set appears as the heading for each description. The characteristics 
of these data sets, those set by the assembler and those you can 
override, are shown in Takles 1 and 2. 
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Figure 1. Assembler H Data Sets 
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DD Name SYSUT 1 


The assembler uses this utility data set as an intermediate external 
storage device when processing the source program. The input/output 
device assigned to this data set must be a direct access device. The 
assembler does not support a multi-volume utility data set. 


DD Name SYSIN 


This data set contains the input to the assembler -- the source 
statements tc ke processed. The input/output device assigned to this 
data set may be either the device transmitting the input stream, or 
another sequential input device that you have designated, The DD 
statement describing this data set appears in the input stream. The 
TBM-supplied procedures de nct contain this statement. 


DD Name SYSLIB 


From this data set, the assembler obtains macro definitions and 
asserkler-language statements to be called by the COPY assembler 
instruction. It is a partitioned data set; each macro definition or 
sequence of assembler-language statements is a separate member, with 


the member name being the macro instruction mnemonic or COPY code name. 


The data set may be defined as SYS1.MACLIB or your private macro 
definition or COPY library. SYS1.MACLIB contains macro definitions 


for the system macro instructions provided ky IBM. Your private library 


may ke concatenated with SYS1.MACLIB. The two libraries must have 
the same logical record length (80 bytes), but the blocking factors 
may ke different. The DD statement for the library with the largest 


blocksize must appear first in the job control language for the assembly 


(that is, Lkefore any cther library DD statements). The Job Control 


Language publication, Order Number GC28-6539, explains the concatenation 


of data sets. 


DD Name SYSPRINT 


This data set is used Ly the assembler to produce a listing. Output 
may be directed to a printer, magnetic tape, or direct-access storage 


device. The assembler uses the machine code carriage-control characters 


for this data set. 


DD Name SYSPUNCH 


The assembler uses this data set to produce the object module. The 


input/output unit assigned to this data set may be either a card punch 


or an intermediate storage device capable of sequential access. 
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DD Name SYSLIN 


This is a direct-access storage device, magnetic tape, or card punch 
data set used by the assembler, It contains the same output text as 
SYSPUNCH. It. is used as input for thé linkage editor, 


eTakle 1. Assembler Data Set Characteristics 
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Logical Record 
Length (LRECL) 


Block Size 
(BLKSIZE) 


Record Format (4) 
(RECFM) 


Number of channel 
Programs (NCP) 










SYSPRINT | SYSLIN | SYSIN | SYSLIB 
BSAM | BSAM | BPAM 


efojo 
oofoooo | 
Mies 


You can specify a blocksize (BLKSIZE) between 2000 and 5100 bytes in the DD statement or in the 
data set label. BLKSIZE should be a multiple of 8; if it is not, it will be rounded to the next lower multiple 
of 8. If you do not specify BLKSIZE, the assembler sets a default blocksize based on the device used for 
SYSUT1 as follows: 










fixed at 
80 


fixed at 
BLKSIZE 





Not 
Applicable 








©) 
5 , 
© 





2301 Drum 5016 bytes 

2302 Disk 4984 bytes 

2303 Drum 4888 bytes 

2305 Drum 4280 bytes 
model 1. 

2305 Drum 4688 bytes 
model 2 

2311 Disk 3624 bytes 

2314 Disk 3520 bytes 

3330 Disk 4208 bytes 


The Storage Estimates chapter of the System Information manual, Order Number SC26-3768, discusses the 
reasons for changing the default blocksize. 


If specified, BLKSIZE must equal LRECL or a multiple of LRECL. If BLKSIZE is not specified, it is set equal 
to LRECL. 


BLKSIZE be specified in the DD statement or the data set label as a multiple of LRECL. 

Set by the assembler to F. 

Set by the assembler to FM. 

You may specify B, S, or T. 

You can specify the number of channel programs (NCP) used by any assembler data set except SYSUT1. 

and SYSLIB. The NCP of SYSUT1 is fixed at 1. The assembler, however, can change your NCP specification 


under certain conditions. Table 2 shows how NCP is calculated. Note that if the NCP is greater than 2, chained 
t/O request scheduling is set by the assembler. 


Using The Assembler 7 


' Table 2. Number of Channel Program (NCP) Selection : C 


SYSPRINT data set 
SYSIN data set . 


SYSLIN or SYSPUNCH 
data set 





NCP not specified by user 


NCP specified by user 


NCP set by assembler is 
larger of 1210/BLKSIZE 
or 2 


NCP is set to number spec- 


ified by the user | . 


Note: If the NCP is greater than two, chained |/O scheduling is set by the assembler. 


Return Codes 


Assembler H issues return codes for use with the COND parameter of 

the JOE and EXEC jck contrcl language statements, The COND parameter 
enables you to skip or execute a jok step depending on the results 
(indicated by the return ccde) of a previous job step. It is explained 
in the Job Control Language publication, Order Numrker GC28-6539. 


The return code issued by the assembler is the highest severity code 
that is associated with any error detected in the assembly or with 

any MNCTE message produced ky the source progran or macro instructions. 
See the Assembler H Messages book, Order Number SC26-3770, for a listing 
of the assembler errors and their severity codes. 
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Cataloged Procedures 


Often the same set of job ccntrol statements is used over and over 
again (for example, to specify the compilation, link-editing, and 
execution cf many different programs). To save programming time and 
to reduce the possiblity of error, sets of standard series of EXEC 
and DD statements can be prepared once and ‘cataloged! in a system 
library. Such a set of statements is termed a cataloged procedure 
and can ke invcked by one of the following statements: 


//stepname EXEC procname 
//stepname EXEC PRO C=procname 


The specified erecedure is read from the procedure library 
(SYS1.PROCLIF) and merged with the job control statements that follow 
this EXEC statement. 


The System Prcgranrnmer's Guide, Order Number GC28-6550, tells how to 
rlace cataloged procedures in the procedure likrary. 


This section describes four IBM-provided cataloged procedures: a 
procedure for assembling (ASMHC), a procedure for assembling and link- 
editing (ASMHCL), a procedure for assembling, link-editing, and 
executing (ASMHCLG), and a procedure for assemkling and loader-executing 
(ASMHCG). 


Cataloged Procedure for Assembly (ASMHC) 


This procedure consists of one jok step: assembly. The name ASMHC 
must be used to call this procedure. The result of execution is an 
okject module, in runched card form, and an assembler listing. 


In the following example, input enters via the input stream. An example 
of the statements entered in the input stream to use this prccedure 
is: 


//jobname JOB 
//stepname EXEC PROC=ASMHC 
//C.SYSIN DD * 


I 
| 
source program statements 
I 
| 
/* (delimiter statement) 


The statements of the ASMHC procedure are read from the procedure 
likrary and merged into the input stream. 


Figure 2 shows the statements that make up the ASMHC procedure. 
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Hc PGM=IEV90,REGION=200K 

//SYSLIB DSN=SYS1.MACLIB,DISP=SHR 

/HISYSUT1 UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)), DSN=&SYSUT1 
//SYSPUNCH SYSOUT=B,DCB=(BLKSIZE=800) SPACE=(CYL,(5,5,0)) 


/ISYSPRINT SYSOUT=A,DCB=(BLKSIZE=3509), UNIT=(,SEP=(SYSUT 1,SYSPUNCH)) 


PARM= or COND= parameters may be added to this statement by the EXEC statement that calls the procedure 
(see " Overriding Statements in Cataloged Procedures”). The system name IEV90 identifies Assembler H. 


This statement identifies the macro library data set. The data set name SYS1.MACLIB is an IBM designation. 
This statement specifies the assembler utility data set. The device classname used here, SYSDA, represents a 
direct-access unit. The I/O unit assigned to this name is specified by the installation when the operating 
system is generated. A unit name such as 2311 may be substituted for SYSDA. 


This statement describes the data set that will contain the object module produced by the assembler. 


This statement deffnes the standard system output class, SYSOUT=A, as the destination for the assembler listing. 





Figure 2. Cataloged Procedure for Assembly (ASMHC) 


Cataloged Procedure for Assembly and Link-Editing (ASMHCL) 


This procedure consists of two job steps: assembly and link-editing. 
The name ASMHCL must be used to call this procedure. Execution of 
this procedure results in the production of an assembler listing, a 
linkage editor listing, and a load module. 


The following example illustrates input to the assembler via the input 
jok stream. SYSLIN contains the output from the assembly step and 

the inrut to the linkage edit step. It can be concatenated with 
additional input tc the linkage editor as shown in the example. This 
additional input can be linkage editor control statements or other 
object mrodules. 


An example of the statements entered in the input stream to use this 
procedure is: 


//jobname JOB 
//stepname EXEC PROC=ASMHCL 
//C.SYSIN DDB * 


I 
! 
| 
source program statements 
! 
| 
| 


/* 
//L.SYSIN DDB * 
J 
I necessary only if linkage 
i editor is to combine modules 
Object module or or read linkage editor control 
linkage editor information from the job stream 
control statements 
/* 
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Figure 3 shows the statements that make up the ASMHCL procedure. Only 
those statements not previcusly discussed are explained. 


J 


C 


HC 
//SYSLIB 
//SYSUT1 
//SYSPUNCH 
//SYSPRINT 


1 /SYSLIN 
H 


2 7/L 

3 //SYSLIN 
ae 

5 //SYSLMOD 


oO 


//SYSUT1 


~ 


//SYSPRINT 


EXEC 
DD 
DD 
DD 
DD 
DD 


EXEC 
DD 
DD 
DD 
DD 


DD 


PGM=1EV90,PARM=LOAD, REGION=200K 
DSN=SYS1.MACLIB,DISP=SHR 
UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL, (10,5)), DSN=&SYSUT1 
SYSOUT=B,DCB=(BLKSIZE=800),SPACE=(CYL,(5,5,0)) 
SYSOUT=A,DCB=(BLKSIZE=3509), UNIT=(,SEP=(SYSUT1,SYSPUNCH)) 


DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)), * 
DCB=(BLKS!ZE=400),DSN=&&LOADSET 


PGM=IEWL,PARM="MAP,LET,LIST,NCAL’, REGION=96K,COND=(8,LT,C) 
DSN=&&LOADSET,DISP=(OLD,DELETE) 

DDNAME=SYSIN 

DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL, (2,1,2)), DSN=&GOSET(GO) 
UNIT=SYSDA,SPACE=(CYL,(3,2)), DSN=&SYSUT1 


SYSOUT=A,DCB=(RECFM=FB,BLKSIZE=3509) 


In this procedure the SYSLIN DD statement describes a temporary data set - - the object module - - which is to be 
passed to the linkage editor. 


This statement initiates linkage editor execution. The linkage editor options in the PARM=field cause the linkage 
editor to produce a cross-reference table, a module map, and a list of all control statements processed by the linkage 


editor. The NCAL option suppresses the automatic library call function of the linkage editor. 


3 


assembler. 


> 


This statement identifies the linkage editor input data set as the same one (SYSLIN) produced as output from the 


This statement is used to concatenate any input to the linkage editor from the input stream (object decks and/or 


linkage editor contro! statements) with the input from the assembler. 


5 This statement specifies the linkage-editor output data set (the load module). As specified, the data set will be 
deleted at the end of the job. If it is desired to retain the load module, the DSN parameter must be respecified 
and a DISP parameter added. See ''Overriding Statements in Cataloged Procedures,” if the output of the linkage 
editor is to be retained, the DSN parameter must specify a library name and member name where the load 
module is to be placed. The DISP parameter must specify either KEEP or CATLG. 


6 This statement specifies the utility data set for the linkage editor. 





7 This statement identifies the standard output class as the destination for the linkage editor listing. 


Figure 3. CCataloged Procedure for Assembling and Link-Editing 


(AS MHCL) 
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Cataloged Procedure for Assembly, Link-Editing, and Execution (ASMHCLG) 


This pcrecedure consists of three job steps: assenkly, link-editing, 
anc e€xecuticn. 


Figure 4 shows the staterents that make up the ASMHCIG procedure. 
Cnly those statements not previously discussed are explained in the 
figure. 


The name ASMHCLG must ke used to call this procedure. An assembler 
listing, an object deck, and a linkage editor listing are prcduced. 


The statements entered in the input stream to use this procedure are: 


//iobname JOB 
//stepname EXEC PROC=ASMHCLG 
/IC.SYSIN DDB * 


! 
| 
I 
source program statements 
! 
I 
I 


/* 
//L.SYSIN DD * 
I 
I necessary only if linkage 
| editor is to combine modules 
object module or or read linkage editor control 
linkage editor information from the job stream 
control statements 
I 
{* | 
//G.ddname DD (parameters) 
//G.ddname DD (parameters) 
* & 


//G.ddname DD 
| 
I 
I 
problem program input 


only if necessary 
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. 





/1C 

//SYSLIB 
//SYSUT1 
//SYSPUNCH 


— /ISYSPRINT 


//SYSLIN 
I 


HL 
/ISYSLIN 

/ 
//ISYSLMOD 
//SYSUT1 


//SYSPRINT 


PGM=IEV90,PARM=LOAD,REGION=200K 
DSN=SYS1.MACLIB,DISP=SHR 
UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)), DSN=&SYSUT1 
SYSOUT=B,DCB=(BLKS!IZE=800) SPACE=(CYL,(5,5,0)) 
SYSOUT=A,DCB=(BLKSIZE=3509) ,UUNIT=(,SEP=(SYSUT1,SYSPUNCH)) 


DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)), J 
DCB=(BLKSIZE=400),DSN=&&LOADSET 


PGM=IEWL,PARM=‘MAP,LET,LIST,NCAL’,REGION=96K,COND=(8,LT,C) 
DSN=&&LOADSET,DISP=(OLD DELETE) 

DDNAME=SYSIN 

DISP=(,PASS) UNIT=SYSDA,SPACE=(CYL,(2,1,2)) ,DSN=&GOSET(GO) 
UNIT=SYSDA,SPACE=(CYL,(3,2)), DSN=&SYSUT1 
SYSOUT=A,DCB=(RECFM=FB,BLKSIZE=3509) 


PGM=*.L.SYSLMOD,COND= ((8,LT,C),(4,LT,L)) 


The LET linkage-editor option specified in this statement causes the linkage editor to mark the load module as 
executable even though errors were encountered during processing. 


The output of the linkage editor is specified as a member of a temporary data set, residing on a direct-access 
device, and is to be passed to a succeeding job step. 


This statement initiates execution of the assembled and linkage edited program. The notation *.L.SYSLMOD 
identifies the program to be executed as being in the data set described in job step L by the DD statement 
named SYSLMOD. 





ee 
Figure 4. CCat ged Procedure Dfor Assembly, Link-EFditing and 
Execution (AS ) 


Cataloged Procedure for Assembly and Loader-Execution (ASMHCG) 


This procedure consists of two job steps, asserkly and loader-execution. 
Loader-execution is a combination of link-editing and loading the 
program for executicn. Lcad modules for program libraries are not 
produced. 
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HC PGM=!EV90,PARM=LOAD,REGION=200K 

/ISYSLIB DSN=SYS1.MACLIB,DISP=SHR 

//SYSUT1 UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)),DSN=&SYSUT1 
//SYSPUNCH SYSOUT=B,DCB=(BLKSIZE=800) SPACE=(CYL,(5,5,0)) 

//SYSPRINT SYSOUT=A,DCB=(BLKSIZE=3509), UNIT=(,SEP=(SYSUT1,SYSPUNCH)) 


/ISYSLIN DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)), : 
// DCB=(BLKSIZE=400),DSN=&&LOADSET 


MG PGM=LOADER,PARM="MAP,LET,PRINT,NOCALL’ 
//SYSLIN DSN=&&LOADSET,DISP=(OLD,DELETE) 
// DDNAME=SYSIN 


//SYSLOUT SYSOUT=A 


This statement initiates loader-execution. The loader options in the PARM= field cause the loader to produce a 
map and print the map and diagnostics. The NOCALL option is the same as NCAL for the linkage editor and the 
LET option is the same as for the linkage editor. 


This statement defines the loader input data set as the same one produced as output by the assembler. 


This statement identifies the standard output class as the destination for the loader listing. 


Figure 5. Calalcged Procedure for Assembly and Loader-Execution 
(ASMHCG) 


Figure 5 shows the statements that make up the ASMHCG procedure. Only 
those statements net previcusly discussed are explained in the figure. 


The name ASMHCG must be used to call this procedure. Assembler and 
lcader listings are produced. 


The statements entered in the input stream to use this prccedure are: 


//jobname JOB 
//stepname EXEC PROC=ASMHCG 
/IC.SYSIN DDB * 


| 
I 
! 
source program 
| 
| 
/* 
//G.ddname DD (parameters) 
//G.ddname DD (parameters) 
//G.ddname DDB * 
I only if necessary 
| 
I 
problem program input 
I 
I 
/* 
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Overriding Statements in Cataloged Procedures 


Any parameter in a catalcged procedure can be overridden except the 
PGM= parameter in the EXEC statement. Such overriding of statements 
or fields is effective only for the duration of the job step in which 
the statements appear. The statements, as stored in the procedure 
liktrary of the syster, remain unchanged. 


Overriding for the purposes of respecification, addition, or 
nullification is accomplished by including in the input strear 
statements containing the desired changes and identifying the statements 
to be overridden. 


EXEC Statements 


Any EXEC parameter (excerpt PGM) can be overridden. For example, the 
PARM= and COND= parameters can be added or, if present, respecified 

by including in the EXEC statement calling the procedure the notation 
PARM.stepname=, Or COND.stepname=, followed ky the desired parameters. 
"Stepname" identifies the EXEC statement within the procedure to which 
the modification applies. 


If the procedure ccnsists cf more than one jok step, a 
PARM.procstername= cr COND.r¢rccsterpname= parameter may be entered for 
each step. The entries must be in order, (PARM.procstep1=, 
PARM.procstep2=, etc.). 


DD Statements 


All rarameters in the operand field of DD statements may be cverridden 
ky including in the input stream (following the EXEC card calling the 
procedure) a DD statement with the notation //procstepname.ddname in 
the name field. "“Procstepname" refers to the job step in which the 
statement identified by "“ddname" appears. 


Note: If ncre than one DD statement in a procedure is to be overridden, 
the overriding statements must be in the same order as the statements 
in the procedure. 


Examples 


In the assembly procedure ASMHC (Figure 2), the producticn cf a punched 
okject deck could be suprressed and the UNIT= and SPACE= parameters 

of data set SYSUT1 respecified, by including the following statements 
in the input stream: 


//stepname EXEC PROC=ASMHC, xX 
// PARM.C=NODECK 

//C.SYSUT1 DD UNIT=2311, x 
// SPACE=(200,(300,40)) 

//C.SYSIN DD . 
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In procedure ASMHCIGC (Figure 4), suppressing production of an assembler 
listing and acding the COND= parameter to the EXEC statement, which 
specifies executicn of the linkage editor, may be desired. In this 
case, the EXEC statement in the input stream would appear as follows: 


//stepname EXEC  PROC=ASMHCLG, xX 
I PARM.C=(NOLIST,LOAD), X 
// COND.L=(8,LT,stepname.C) 


Note: Overriding the LIST parameter effectively deletes the PARM=LOAD. 
‘PARM=LCAD must be repeated in the override statement. 


For current executicn cf procedure ASMHCLG, no assembler listing would 
be produced, and execution of the linkage editor job step //L would 

be suppressed if the return code issued by the assembler (step C) were 
greater than 8. The fcllowing listing shows how to use the procedure 
ASMHCL (Figure 3) to: 


Ve Read input from a non-lakeled 9-track tare on unit 282 that has 
a stanéard Ltlocking factcr cf 10. 


Ze Put the output listing on a tape labeled VOLILD=TAPE10, with a 
data set name of FRCG1 and a blocking factor cf 5. 


3. Block the SYSLIN outrut cf the assembler and use it as input to 
the linkage editor with a blocking factor of 10. 


4. Link-edit the module only if there are no errcrs in the assembler 
(COND=0) . 
5. Link-edit onto a previously allocated and cataloged data set 


USER.LIBRARY with a member name of PROG. 


//jobname JOB 

//stepname EXEC PROC=ASMHCL, X 
// COND.L=(0,NE,stepname.C) 

//C.SYSPRINT DD DSNAME=PROG1,UNIT=TAPE, X 
// VOLUME=SER=TAPE10,DCB=(BLKSIZE=605) 
HC.SYSLIN DD DCB=(BLKSIZE=800) 

//C.SYSIN DD UNIT=282,LABEL=(,NL), X 
// DCB=(RECFM=FBS,BLKSIZE=800) 

//L.SYSIN | DD DCB=stepname.C.SYSLIN 

//L.SYSLMOD DD DSNAME=USER.LIBRARY(PROG),DISP=OLD 

/* 


Note: The order cf appearance of overriding DD names for jok step 

C corresponds to the order of DD names in the procedure; that is, 
SYSFRINT precedes SYSLIN within jee Cc. aaa ae name C.SYSIN was placed 
last because SYSIN dces nct_c = These points 
are covered in the section in the Job 
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The following example shows assembly of two programs, link-editing 
of the two assemblies into one load module, and execution of the load 
module. The input stream appears as follows: 


™, 
. 
a //stepname1 EXEC PROC=ASMHC,PARM.C="LOAD’ 
/IC.SYSLIN DD DSNAME=&LOADSET,UNIT=SYSSQ, Xx 
// SPACE=(80,(100,50)), x 
// ; DISP=(MOD,PASS),DCB=(BLKS! ZE=800) 
/IC.SYSIN DD : 
1 
| 
| 
source program 1 statements 
| 
! 
/* 
//stepname2 EXEC PROC=ASMHCLG 
/IC.SYSLIN DD DCB=(BLKSIZE=800),DISP=(MOD,PASS) 
IIC.SYSIN DD Md 
l 
I 
| 
source program 2 statements 
l 
I 
I 
/* 
//L.SYSLIN DD DCB=BLKS!IZE=800 
© //L.SYSIN DD x 
j ENTRY PROG 
/* 
//G.ddname dd cards for G step 


The Job Control Language nanual, Order Number ©[28-6539, and System 
Programmer's Guide, Order Number C28-6550, provide additional 
description cf cverriding techniques, : 
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Assembler Listing 


The assembler H listing consists of up to five sections, ordered as 
follows: 


e External symbol dictionary 

e Source and object program 

e Relocation dictionary 

e Symbol and literal cross reference 

° Diagnostic cress reference and assembler summary 


Figure 6 shows each secticn of the listing. Each item marked with 
a circled number is explained in the following section. 
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[ PR LSe 


© 


EXTERNAL SYMBOL DECTIONARY 


®2O® ®© © 


PAGE 1 


SYMBOL TYPE ID ADDR LENGTH LD ID ASM H V O1 11.52 05/19/70 
PC OOOL 900000 00020C 

EXSYM ER 0002 

ToLaoP LD 000022 0001 

COMSECT CM 0003 000000 000050 

EXOMY XD 0004 000003 000078 

WRKFLDS $D 0005 000210 000090 


@ 


PRIME SAMPLE LISTING DESCRIPTIUN 


Lcc =6(OBSECT CODE 


® 


ADDR1 ADDR2 STMT 


SOURCE STATEMENT 


PAGE 2 


ASM H V OL 11.52 05/19/70 


000000 2 CSECT 
3 EXIRN EXSYM 

4 ENTRY FOLOOP 
00000005 5 5 EQU 5 
000000 90EC DOOC 0000 7 STM = 14912912(13) 
000004 05CO 8 BALR 12,0 
00000006 9 USING *,12 
000006 5000 COFe OOOFC 10 ST 139 SAVE+4 
00000A 0000 000 00000 11 LA 10» SAUE 

IEV044 ¥#* ERROR *#* UNDEFINED SYMBOL 

OOO00E 5850 C202 00208 12 L R5y=ACEXSYM) 

13 PRINT NOGEN 

14 OPEN (ENOCB,,QUTOCB, (OUTPUT?) 

23 PRINT GEN @ 

24 IOLOOP GET —INNCB, INBUF 
000022 4110 C13E 00144 25+10LGQP LA 1, INDCB LOAD PARAMETER REG 1 02-IHBIN 
000026 4100 Cos2 00058 26+ LA 0, INBUF LOAD PARAMETER REG 0 02-IHBIN 
00002A 58FO 1030 00030 27+ L 15948 (091) LOAD GET ROUTINE ADDR. 01-GET 
00002E OSEF 28+ BALR 14,15 LINK TO GET ROUTINE O1-GET 

PRIME RELOCATIUN DICTIONARY PAGE 5 


POS.ED REL.ID 


@) 


FLAGS ADDRESS 


0001 ooo) 98 oo00ol? 
0001 0001 08 000010 
0001 0002 oc 090208 
o0oL 0004 2c 009140 


PRIME 


@ & 


SYMBOL LEN VALUE 


CROSS REFERENCE 


@3) 


DEFN REFERENCES 


ASM HV OL 22.52 05/19/70 


PAGE 6 


ASM H V OL 11.52 05/19/70 


ae 


COMSECT 00091 00000000 0167 y 
EXDMY 00001 00000000 0169 0052 _ 
EXSYM coool 00000000 9003 0174 
EXTNLEDUMYSCTN 

00004 000140 0052 
INBUF 00004 000058 0049 0026 0033 


INDCB 00004 000144 0058 0018 0025 
Tovoup 00004 000922 0025 0004 0039 
QUTBUF 00004 O0O0AB 0050 0033 0036 
ODUTBUF 00001 00000000 O172 ***#*DUPLICATEX*#* 
OUTDCB 00004 OOULA4 0115 9020 0035 


R5 00092 00000005 0005 9012 0032 
SAUE **kRXUNDEF INED ER RX oo1L 

SAVE 00004 QO0OF8 0051 o010 041 
WRKFLDS OQ0001 00000210 0170 

sA(EXSYM) 


00004 000208 0174 ool2 


PRIME OLAGNUSTIC CROSS REFERENCE AND ASSEMBLER SUMMARY PAGE 7 


ASM H V O1 11.52 05/19/70 


THE FOLLOWING STATEMENTS WERE FLAGGED 
00011 00172 
2 STATEMENTS FLAGGED IN THIS ASSEMBLY 8 WAS HIGHEST SEVERITY CODE 
OVERRIDING PARAMETERS~ NODECK sMULT,SYSPARM=SAMPLE*®PRUGRAM 
OPTIONS FOR THIS ASSEMBLY 
NODECKy, NOLVAND, LIST, XREF, NORENT? NGOTEST, MULT, ALGNy ESD, RLDe LINECNT= 555 MSGLEVEL= 0, SYSPARM=SAMPLE*PROGRAM 
NO OVERRIDING DO NAMES 


48 CARUS FRUM SYSIN 
151 LINES QUT PUT 


1575 CARDS FROM SYSLIB 4 
0 CARDS OUTPUT 


©® @® 


Figure 6. Assembler H Listing 
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bie” 


External Symbol Dictionary (ESD) 


This section of the listing contains the external symbol dictionary 
information fassed to the linkage editor or loader in the object module. 
The entries descrike the ccntrol sections, external references, and 
entry points in the assembled program. There are six types of entries, 
shewn in Table 3 along with their associated fields. The circled 
numkers refer to the ccrrespcnding headings in the sample listing 
(Figure 6). The Xs indicate entries accompanying each tyre designation. 


LENGTH LD iD 


Takle 3. Types of ESD Entries 


EAPIEeEae 
SYMBOL TYPE ADDR 
—— 
eee ae 
aS. Saree 


ae eee 
eis ett 








Ga) The name of every external dummy section, control section, entry 
point, and external symbol. 


The type designatcr fcr the entry, as shown in the table. The 
type designators are defined as: 


SC -- Centrel section definition. The symbol appeared in the 
name field of a CSECT or START statement. 


LD -- Label definition. The symbol appeared as the cperand of 
an ENTRY staterent. 

ER -- External reference. The symbol appeared as the orerand of 
an EXTRN statement, or was declared as a V-type address 
constant. 

PC -- Unnamed control section definition (private code). A CSECT 


or START statement that commences a control section does 
nct have a synbcl in the name field, or a control section 
is commenced (by any instruction which affects the location 
ccunter) before a CSECT or START is encountered. 


CM -- Ccommron ccntrol section definition. The symbol appeared in 
the name field of a COM statement. 


XD -- External dummy section. The symbol appeared in the nane 
field of a DXD statement or a Q-type address constant. 
(The external dummy section is called a pseudo register 
in the Linkage Editor and Loader manual, Crder Number 
GC28-6538.) 
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(3) The external symbol dictionary identification number (ESDID). 
The numker is a unique four-digit hexadecimal number identifying 
the entry. It is used in combination with the LD entry of the 
ESD and in the relocation dictionary for referencing the ESD. 


The address of the symbol (in hexadecimal notation) for SD-and 
LD-type entries, and bklanks for ER-type entries. For PC- and 
CM-type entries, it indicates the beginning address of the control 
section. For XU€-type entries, it indicates the alignment by 
printirg a number one less than the number of bytes in the unit 

of alignment. For example, 7 indicates doukleword alignment. 


(s) The asserkled length, in bytes, of the control section (in 
hexadecimal nctaticn). 


(6) For an LD-type entry, the ESCID of the control secticn in which 
the symktol was defined. 


Source and Object Program 

This section cf the listirg documents the source statements and the 

resulting object program. 

(7) The one tc eight-character deck identification, if any. It is 
obtained from the name field of the first named TITLE statement, 
The assembler prints the deck identification and date (item 16) 
on every page of the listing. 


The information taken from the operand field of a TITLE statement. 


The listing page number. 


OOO 


The assembled address (in hexadecimal notation) of the object 
code. 


° For ORG statements, the location-counter value before the 
CRG is placed in the location column and the location counter 
value after the ORG is placed in the okject code field. 


_@ If the END statenent contains an operand, the operand value 
(transfer address) appears in the location field (LOC). 


* In the case of LCCTR, COM, CSEFCT, and DSECT statements, the 
lccaticn field ccntains the current address of these control 
sections. 


e In the case of EXTRN, ENTRY, and DXD instructions, the 
location field ard cbject code field are blank. 


e For a USING statement, the location field contains the vaiue 
.of the first operand. It is four bytes long. 


e For LTORG statements, the location field contains the location 
assigned to the literal pool. 


e For an EQU statement, the location field contains the value 
assigned. It is four bytes long. 
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The okject code rroduced by the source statement. The entries 

are always left-justified. The notation is hexadecimal. Entries 
are machine instructicns or assembled constants. Machine 
instructicns are rfrinted in full with a blank inserted after every 
four digits (two bytes). Only the first eight bytes of a constant 
will appear in the listing if PRINT NODATA is in effect, unless 
the statement has continuation cards. The entire censtant appears 
if PRINT CATA is in effect. (See the PRINT assembler instruction 
in the Assenkler Language publication, Order Number GC28-6514.) 


Effective addresses (each the result of adding together a base 
register value and a displacement value) : 


The field headed ADLCR1 contains the effective address for 
the first operand cf an SS instruction. 


The field headed ADDR2 contains the effective address of 
the last operand of any instruction referencing stcrage. 


Both address fields contain six digits; however, if the high-order 
digit is a zero, it is not printed. 


The statement number. A plus sign (+) to the right of the number 
indicates that the statenrent was generated as the result of macro 


call processing. An unnumbered statement with a plus sign (+) 


is the result cf cpen code substitution. 


The source program statement. The following items arrly to this 
secticn of the listing: 


e Source statements are listed, including those brought into 
the program ky the COPY assembler instructicn, and including 
macro definiticns submitted with the main program for 
assembly. Listing control instructions are not printed, 
except for PRINT, which is always printed. 


e MACKC definitions oktained from SYSLIB are not listed unless 
- the macre definiticn is included in the source program by 
means of a COPY statement. 


e The statements generated as the result of a macro call follow 
the macre call ir the listing unless PRINT NOGEN is in effect. 


e Assembler and machine instructions in the source program 
that contain variatle symbols are listed twice: as they 
appear in the scurce input, and with values substituted for 
the variable symkols. 


e All error diagnostic messages appear in line except those 
suppressed by the MSGLEVEL option. The "Assembler Diagnostics 
Facilities" section describes how errcr messages and MNOTEs 
are kandled. 


e Literals that have not been assigned locations by LTORG 
statements appear in the listing following the END statement. 
Literals are identified by the equals sign (=) preceding 
them. 


e Whenever possible, a generated statement is printed in the 


same format as the corresponding macro-definition (model) 
statement. The starting columns of the operaticn, operand, 
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and comments fields are preserved unless they are displaced 
ky field subsitution, as shown in the following example: 


Source Statements: 6C SETC - 'ABCDEFGHIJK! 
Generated Statenent: ABCDEFGHIJK LA 1,4 C 


It is possible for a generated statement to occupy ten or more 
continuation lines on the listing, In this way generated 
statements are unlike source statements, which are restricted 
to nine continuation lines. 


(15) The versicn identifier of Assembler H. 
The current date (data run is made). 


G7) The identification-sequence field from the source statement. 
For a macro-generated statement, this field contains information 
identifying the origin of the statement... The first two columns 
define the level of the macro call. 


For a likrary macre call, the last five columns contain the first five 
characters of the macro nane. For a macro whose definition is in the 
source program (including one read by a COPY statement), the last five 
characters ccntain the line number of the model statement in the 
definition from which the generated statement is derived. This 
information can be an important diagnostic aid in analyzing output 
dealing with macro calls within macro calls. 


Relocation Dictionary 


This section of the listing contains the relocation dictionary 
information fassed to the linkage editor in the object module. The 
entries describe the address constants in the assembled program that 
are affected ky relccaticn. 


© 


The external symbol dictionary ID number assigned to the ESD entry 
for the ccntrcel section in which the address constant is used 


as an operand. 


The external symbol dictionary ID number assigned tc the ESD entry 
for the ccntrcl secticn in which the referenced symbol is defined. 


The two-digit hexadecimal number represented by the characters 
in this field is interpreted as follows: 


e First Digit. A zero indicates that the entry describes an 
A-type or Y~-type address constant. A one indicates that 
the entry descrikes a V-type address constant. A two 
indicates that the entry describes a Q-type address constant. * 
A three descrikes a CXD entry. 


° Second Digit. The first three bits of this digit indicate 
the length cf the constant and whether the base should be 
added or suktracted: 





Bits 0 and 1 Bit 2 Bit 3 
00 = 1 byte 0 = + Always 0 
01 = 2 bytes 1=- 
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10 = 
11 = 4 bytes 


1) The asserkled address of the field where the address constant 
:) is stored. 


Cross Reference 


This section of the listing information concerns symbols and literals 
which are defined and used in the program. 


The symbols or literals. 


The length (in decimal notation), in bytes, cf the field 
represented ky the synbcl. 


Either the address the symbol or literal represents, or a value 
to which the symbol is equated. The value is three bytes long, 
except for the fcllowing, which are four bytes long: CSECT, 
DSECT, START, COM, CXL, EQU, LOCTR, EXTRN, and a duplicate symbol. 


The numker of the statement in which the symbol or literal was 
defined. 


The statement numbers of statements in which the symkol or literal 
agpears as an cperand. In the case of a duplicate symbol, the 
assembler fills this column with the message: 


®@Q © O©& 


*%* &* DUPLICA TEX ** * 
( ) The following notes apply to the cross-reference section: 
° Symbols appearing in V-type address constants do not appear in 


‘the crcess-reference listing. 


e Cross~-reference entries for symbols used in a literal refer to 
the assertled literal in the literal pool. Look up the literals 
in the cross reference to find where the symbols are used. 


° A PRINT CFF listing control instruction does not affect the 
producticn cf the cress-reference section of the listing. 


e In the case of an undefined symbol, the assembler fills fields 
23, 24, and 25 with the message: 


*& x * UNDEF INED* *** , 


Diagnostic Cross Reference and Assembler Summary 


7) The statement number cf each statement flagged with an error 
message or MNOTE appears in this list. The number of statements 
flagged and the highest non-zero severity code encountered is 
also printed. The highest severity code is equal to the assembler 


return code. 
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If no errors are enccuntered, the following statement is printed: 
NO STATEMENTS FLAGGED IN THIS ASSEMBLY 


See the section "Frror CLiagnostics" for a ccmplete discussion 
cf how errcr nessages and MNOTES are handled. 


A list of the options in effect for this assembly is printed. 
The options specified by the programmer in the PARM field to 
cverride the assembler default options are also printed. 


If the assembler has keen called by a proklem program (See Appendix 
C) and any standard (defauit) DD names have been overriden, both 
the default CC names and the overriding DD names are listed. 
Otherwise, this statement appears: 


NC OVERRIDING CD NAMES 


The assembler prints the number of records read from SYSIN and 
SYSLIB and the number cf records written on SYSPUNCH. The 
assembler also prints the number of lines written on SYSPRINTI. 
This is a count of the actual number of 121-byte records generated 
by the assembler; it may be less than the total number cf printed 
and klank lines arppearirg on the listing if the SPACE n assembler 
instruction is used. For a SPACE n that does not cause an eject, 
the assembler inserts n blank lines in the listing by generating 
n/3 blank 121-byte records -- rounded to the next lower integer 

if a fraction results (for example, for a SPACE 2, no blank records 
are generated). The assembler does not generate a blank record 

tc force a page eject. 
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Assembler Diagnostic Facilities 


The diagnostic facilities for Assembler H include diagnostic messages 
for assemkly errors, diagnestic cr explanatory messages issued by the 
source program or by macro definitions (MNOTES), a macro trace and 
dump facility (MHELP), and messages and dumps issued by the assembler 
in case it terminates abnormally. 


This section briefly descrikes these facilities. The assembly error 
diagncstic wessages and aktncrmral assembly termination messages are 
described in detail in the Assembler H Messages bock, Order Number 
SC26=3770% 


Assembly Error Diagnostic Messages 


Assembler H prints most error messages in the listing immediately 
following the statement in errcr. It also prints the total number 
of flagged statements and their line numbers in the Diagncstic Cross 
Reference section at the end of the listing. 


The messages do not follow the statement in error when: 


° Errors are detected during editing of macro definitions read from 
a library. A message for such an error appears after the first 
call in the source program to that macro definiticn. You can, 
however, bring the wacre definiticn into the source program with 
a COFY statement. The editing error messages will then be attached 
to the statements in error. 


e Errors are detected by the lookahead function of the assembler. 
(Lookahead scans, fcr attribute references, statements after the 
one being assembled.) Messages for these errors appear after 
the statements in which they occur. The messages may also appear 
at the point where lcckahead was called. 


e Errors are detected on conditional assembly statements during 
Macro generaticn cor MHELF testing. Such a message follows the 
most recertly generated statement or MHELF output statement. 


A typical error diagnostic message is: 
TEV057 **k*XERROR*** UNDEFINED OPERATION CODE ~~ xxxxx 


The term ***ERROR*** is part of the message if the severity code is 
8 cr greater. The term **WARNING** is part of the message if the 
severity code is 0 or 4. 


A copy of a segment of the statement in error, represented above by 
XXXXX, is appended to the end of many messages. Normally this segment, 
which can be up to 16 bytes lcng, begins at the bad character or term. 
Fer some errors, however, the segment may begin after the bad character 
or term. The segment ray include part of the remarks field. 


If a diagnostic message follows a statement generated by a macre 
definition, the following items may be appended to the error message: 
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® The number of 


the model statement in which the error occurred, or 


the first five characters of the macrc name. 


e The SET symkcol, parameter number, or value string associated with 


the error. 


Note: references to macro parameters are Ly number (such as PARAMO008) 
instead of name. The first seven numbers are always assigned for the 
standard system parameters as follows: 


PARAMO00 
PARAM001 
PARAMO0 2 
PARAM003 
FARAMO04 
PARAM005 
FARAM006 


&SYSNDX 
&SYSECT 
&SYSLCC 
&SYSTIME 
&ESYSCATE 
&SYSPARM 
Name Field Parameter 


Then the keyword parameters are numbered in the order defined in the 

macro definition, followed by positional parameters. When there are 

no keyword parameters in the macro definition, PARAMO0O7 refers to the 
first pcsitional parameter. 


If a diagnostic message follows a conditional assembly statenent in 


the source prcgran, 
message: 


the following items will be appended to the error 


° The word "OPENC! 


e The SET symrkcl or value string associated with the error 


Several messages may be issued for a single statement or even fora 
Single error within a statement. This happens because each statement 
is usually evaluated on more than one level (for example, term 

level, expressicn level, and operand level) or by more than one phase 


of the assembler. 


Fach level or phase can diagnose errors; therefore, 


most or all of the errcrs in the statement are flagged. Occasionally, 
duplicate error messages may occur. This is a normal result of the 
errer detection process. 


Figure 7 is an exanrple cf Assembler H handling of error messages. 
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Loc OBJECT CODE 


000000 

000000 0000 0000 
TEVO44 *** ERROR 
IEVO29 *** ERROR 
IEVL79 *** ERROR 

000004 05C0 

00000006 

000006 0600 9000 
TEVO44 *** ERROR 


IEVO88 *** ERROR 
OQOOO00A OT0O 
NO000C 4510 COOF 
900010 00000900 
000014 0000 0000 


TEVO2Z9 ¥*** ERROR 

IEV044 *** ERROR 

TEVi7T7 *** ERROR 
000018 9280 1000 
OO001LC 0A13 


IEVL36 *** ERROR 
ITEVO89 *** ERROR 
QOOO1LE 5SBAO CO2A 


000022 0000 9000 
IEVO29 *** ERRGUR 


000026 4800 CO2E 


N0000C 58A0 C004 
OO00LO 5880 C008 


I1EVOO3 *** ERROR 
000014 0000 0000 

TEVO29 *** ERROR 
000018 0000 9000 

IEVO74 *** ERROR 


1EV254 *** MNOTE 


Figure 7. 


ADOR1L ADDR2 


00000 


STMT SOURCE STATEMENT 


ASM H V O01 11.51 05/20/70 


AR RR AR ERR ROR ROE ROR RO RR RO RR RIOR OR EO EE OE 
* SAMPLE ERROR DIAGNOSTIC MESSAGES * 


1 
2 
3 * IN SOURCE PROGRAM (OPEN CODE) AND GENERATED BY MACRO CALLS * 
RRR EEK HE REE RE Ee EEE EERE KEE EE RR KE EERE AGERE EEE 


6A CSECT 
7 ST™ 14,U2912(13¢ 


*%e = UNCEFINED SYMBUL 
*** INCORRECT REGISTER SPECIFICATION 
***% = =6DELIMITER ERROR», EXPECT RIGHT PARENTHESIS 
8 BALR 1240 
9 USING ¥*,12 
00000 10 ST 13 ,SAVE+4 
#e*e UNDEFINED: SYMBOL 
11 OPEN (CROIN, (INPUT) sCRDOUT, (OUTPUT) 
*#* UNBALANCED PARENTHESES IN MACRO CALL OPERAND =~ OPENC/(CRDIN, CIN 
12+ CNOP 094 01-OPEN 
00014 13+ BAL Le *+8 LOAD REGL W/LIST ADDR. 01-OPEN 
14+ DC ACO) OPT BYTE AND DCB ADDR. 01-OPEN 
00000 15+ ST CROIN» CINPUT) sCRODUT, {OUTPUT 011,04 XO1L-OPEN 
+ STORE INTO LIST 
eee INCORRECT REGISTER SPECIFICATION 
¥x* UNDEFINED SYMBOL 
*** DELIMITER FRRURy EXPECT BLANK OR LEFT PARENTHESIS 
00000 16+ MVI O(1)9128 MOVE IN OPTION BYTE 01-OPEN 
17+ Svc 19 ISSUE OPEN SVC O1-OPEN 
LDH ee a a A RR OR ORR I RG Ri tO ok A a tO 
20 * EDITING AND GENERATION ERRORS AND MNOTES FROM A LIBRARY MACRO * 
QL RR RE RR RR ROR OE OR RO ERK EE ROK OR IE ER EE 
23 LOADR REGL=1LO0,REG2=8, CHEROKEE ¢ CHAMP 
*ex ILLEGAL LOGICAL/RELATIONAL OPERATOR -- MACRU — LOADR 
eee ARITHMETIC EXPRESSION CUNTAINS ILLEGAL DELIMITER OR ENDS PREMATURELY -- MACRO —- LOADR 
90030 24+ L 10,CHEROKEE O1-LOADR 
26 LOADR REGL=25eREG2=8,CHEROKEE y SWIFT 
00000 27+ L 25 CHEROKEE O1-LOADR 
¥ee INCORRECT REGISTER SPECIFICATION ; 
29 LOADR REG2=10; CHAMP, SWIFT 
00034 30+ L Q,CHAMP O1-LGADR 
6 KERR EERE EERE REEMA EE EKER RATE E EE ERE SERRE EEE EERE EEREEEEEREREEE EERE AE 
7 * SAMPLE MACRO DEFINITION RERUN WITH EDITING ERRORS CORRECTED * 
Ro ERE RAEE EE REE ERE RR ER ES REE EE ERE ERR EK EE EKER EER AEE REE EE KEE EER EEE AR HERE 
10 MACRU 
LL &NAME LOADR EGREGI=,EREG2Z=5 OP 1 » EOP2 
12 &RCL) SETA GREG], EREG2 
13 AIF (TTEREGL EQ 'O*).ERR 
14 L ER(1L),&OPL 
15 L &R(2) 9 €OP2 
16 MEXIT 
17 JERR MNOTE 36,°YOU LEFT GUT THE FIRST REGISTER® 
18 MEND 
20 FERRER RRR EERE ERR REE ERE RK EEE EE EE EE ER ERE SEER EEK EEE EERE EEE AR EERE EE 
21 * SAMPLE MACRO CALLS WITH GENERATION ERRORS AND MNOTES * 
22 FERRER RARE EER RAE REE EERE ERE ERE EE ERE EEE EERE RARE EER EREREE ERE ERE EEE 
24 LOADR REGL=10,REG2=8, CHEROKEE » CHAMP 
00004 25+ L 10,;CHEROKEE 01-00014 
00008 26+ L 8, CHAMP 01-00015 
28 LOADR REG1=25,REG2=8,CHEROKEEs SWIFT 
*¥*% UNDECLARED VARIABLE SYMBOL. DEFAULT=0, NULLs OR TYPE=U --— OPENC/SWIFT 
00000 29+ L 25 CHEROKEE 01-00014 
*** = ©6INCORRECT REGISTER SPECIFICATION 
00000 30+ L 8, 01-00015 
*%e ILLEGAL SYNTAX IN EXPRESSION 
32 LOADR REG2=8yCHAMP, SWIFT 
* ee 33+ 36,YOU LEFT OUT THE FIRST REGISTER 01-00017 
34 END 


Sample Error Diagnostic Messages 
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MNOTEs 


An MNCTE statement is included in a macro definiticn cr in the source 


program. It causes the assenbler to generate an inline error or 
informational message. 


An MNOTE appears in the listing as follows: 
ITEV254 ***MNCTEX** severity code, message 
Unless it has a severity code of * or the severity code is omitted, 


the statement number or the MNOTE is listed in the diagncstic cross 
reference. 


Suppression of Error Messages and MNOTEs 


Error messages and MNCTEs below a specified severity level can be 
cptionally surpressed by declaring in the EXEC statement: 


PARM= 'MSGLEVEL=n' (where "n" is the selected severity level). If you 


are nct concerned with warning and error messages in a specific 
assembly, using this option provides a cleaner listing. 


Abnormal Assembly Termination 


Whenever the assenk-ly cannct be completed, Assembler H provides a 
ressage and, in some cases, a specially formatted dump for diagnostic 
information. This nay indicate an assembler malfunction or it may 
indicate a programmer error. The statement causing the error is 
identified and, if possible, the assembly listing up to the point of 
the error is printed. The Assembler H Messages Look, Order Number 


SC26-3770, descrikes the abnormal termination messages. The messages 


give enough information to (1) correct the error and reassemble your 
progran, or (2) determine that the error is an assembler malfunction. 


The Assembler H Program Lcgic Manual, Order Number LY26-3760, gives 
a complete explanation of the format and contents cf the abnormal 
terninaticn dure. 


Macro Trace Facility (MHELP) 


The MHELF instruction controls a set of trace and dump facilities. 
Options are selected ky an absolute expression in the MHELP operand 
field. MHELF statements can occur anywhere in open code or in macro 
definitions. MHELP options remain in effect continuously until 
superseded by another MHELF statement. Appendix B is a sample MHELP 
trace and dumrr. 
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Macro Call Trace 


(MEELP B'1! or MHELP 1) « This option provides a one-line trace for 
each macro call, giving the name of the called macro, its nested depth, 
and its &SYSNDX (tctal number of macro calls) value. 


Note: This trace is provided upon entry into the macro. No trace 
is provided if error conditions prevent entry into the macro. 


Macro Branch Trace 


(MFELP B'10', or MHELP 2). This option provides a one-line trace for 
each AGO and true AIF conditional-assembly statement within a macro. 

It gives the model-statement numbers of the "branched from" and 
"kcranched to" staterents, and the name of the macro in which the branch 
occurs. This trace option is suppressed for likrary macros. 


Macro Entry Dump 


(MHELF B'10000', or MHELF. 16), This option dumps parameter values from 
the macro dicticnary when the macro is called. 


Macro Exit Dump (MHELP B'1000', or MHELP 8). This option dumps SET 
symbol values from the macro dictionary upon encountering a MEND or 
MEXIT staterent. 


Macro AIF Dump 


(MHELP B'100', or MHELE 4). This option dumps SET symbol values from 
the macro dicticnary immediately before each AIF statement that is 
encountered. 


Global Suppression 


(MHELF B'100000', or MHELF 32). This option suppresses global SET 
symkols in the twc preceding cpticns, MHELF 4 and MHELF 8. 


MHELP Suppression 


(MHELF B'10000000', or MEELF 128). This opticn surpresses all currently 
active MHELP crticns. Meco 
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Combining Options 


Multiple. opticns can ke oktained by combining the option codes in one 
MHELF operand. For example, call and kranch traces can be invoked 
by MHELP B'11', MHELP 24+1,. or MHELP 3. 


MHELP Control on &SYSNDX 


The MHELP operand field is actually mapped into a fullword. 
Previously-defined MHELP codes correspond to the fourth byte of this 
fullword. 


&SYSNDX control is turned on by any bit in the third byte (operand 
values 256-65535 inclusive). Then, when &SYSNDX (total number of 
macro calls) exceeds the value of the fullword which contains the 
MHELP operand value, control is forced to stay at the open-code 
level, by in effect making every statement in a macro behave like 
a MEXIT. Open code macro calls are honored, but with an immediate 
exit back to open code. 


Examples: 
MHELP Limit &SYSNDX to 256. 


MHELP Trace macro calls. 
.MHELP Trace calls and limit &SYSNDX to 257. 


MHELP No effect. No bits in bytes 3,4. 
MHELP Limit &SYSNDX to 65792. 





When the value of &SYSNDX reaches its limit, the diagnostic 
message "ACTR EXCEEDED -- &SYSNDX" is issued. 
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Programming Considerations 


This section describes of a number of subjects about assembler-language 
ercgramming. 


Saving and Restoring General Register Contents 


A problem program should save the values contained in the general 
registers upon ccnmencing execution and, upon completion, restore to 
the general registers these same values. Thus, as control is passed 
from the operating system to a problem program and, in turn, to a 
subpregram, the status of the registers used ky each program is 
preserved. This is dcne through use of the SAVE and RETURN system 
macro instructions. 


Ihe SAVE macro instruction should be the first statement in the program. 
It stcres the contents of registers 14, 15, and 0 through 12 in an 

area provided by the program that passes control. When a preblem 
prograr is given ccntrcl, register 13 contains the address of an area 
in which the general register contents should Le saved. 


If the progran calls any subprograms, or uses any operating system 
services other than GETMAIN, FREEMAIN, ATTACH, and XCTI, it must first 
save the contents of register 13 and then load the address of an 18- 
fullword save area into register 13. This save area is in the problem 
f~rogram and is used by any subprograms or Operating System services 
called by the prcblem rfrogram. 


At completicn, the preblem pregram restores the contents of general 


registers 14, 15, and 0-12 by use of the RETURN system macro instruction 
(which also indicates program completion). The contents of register 
13 must ke restored before execution of the RETURN macro instruction, 


The ccding sequence that fcllows illustrates the basic process of 
saving and restoring the contents of the registers. A complete 
discussion of the SAVE and RETURN macro instructions and the saving 

and restoring of registers is contained in the Data Management Services 
puklication, Order Number GC28-6646, and the Data Management Macro 
Instructions publication, Order Number GC28-6647. 


|_Name_| Operation | __Operand_ 


BEGIN (14,12) 





set up base register 


ST 13,SAVEBLK+4 
LA 13,SAVEBLK 


L 13,SAVEBLK+4 
RETURN (14,12) 
‘SAVEBLK] DC 18F 0’ 
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Program Termination 


You indicate completion of an assembler-language source rrogram by 
using the RETURN system macro instruction to pass control from the 
terminating pregram to the program that initiated it. The initiating 
program may be the Operating System or, if a subprogram issued the 
RETURN, the program that cailed the subprogram. 


In addition to indicating program completion and restoring register 
contents, the RETURN macro instruction may also pass a return ccde 
-- a condition indicator that may be used by the program receiving 
ccntrol. If the return is to the operating system, the return cade 
is ccmpared against the ccndition stated in the COND= parameter of 
the JCE or EXEC statement. If return is tc another problem program, 
the return cede is available in general register 15, and may be used 
as desired. Your program should restore register 13 before issuing 
the RETURN macre instructicn. 


The RETURN system macro instruction is discussed in detail in the 
Supervisor and Data Management Macro Instructions rfublication, Order 
Nurker GC28-6647. 


PARM Field Access 


Access to infcrmation in the PARM field of and EXEC statement is gained 
through general register 1. When control is given to the problem 
program, general register 1 contains the address of a fullword which, 
in turn, contains the address of the data area containing the 
information. 


The data area consists of a halfword containing the count (in binary) 
of the number of information characters, followed by the infcrmation 


field. The infcrmraticn field is aligned to a fullword boundary. The 
Ecllowing diagram illustrates this process: 


-General Register 1 


Address of Fullword 


Fullword 


Address of Data Area 


Data Area 


Information Field 


Macro Definition Library Additions 






Points 
to 






Source statement ccding, tc be retrieved by the COFY assembler 
instruction, and macro definitions may be added to the macro library. 
The IEBUPDTE utility percgram is used for this purpose. Details of 

this program and its control statements are contained in the Utilities 
puklication, Order Number GC28-6586. The following sequence cf ‘job 
control statements can be used to call the utility program and identify 
the needed data sets. It is assumed that the jok control statenents, 
IERUPDTE program. control statements, and data are to enter the system 
via the input stream. 


34 Assembler H Programmer's Guide 


J 


//jobname JOB 


//stepname EXEC PGM=IEBUPDTE,PARM=MOD 
//SYSUT1 DD DSNAME=SYS1.MACLIB,DISP=OLD 
I/SYSUT2 DD DSNAME=SYS1.MACLIB,DISP=OLD 
//ISYSPRINT DD SYSOUT=A 

* 


/ISYSIN DD 


IEBUPDTE control statements and source statements or 
macro-definitions to be added to the macro library 
(SYS1.MACLIB) 


/* (delimiter statement) 


Load Module Modification — Entry Point Restatement 


If the editing functions of the linkage editor are to be used to modify 
a load module, the entry rcoint to the load module must be restated 

when the load module is reprocessed by the linkage editor. Otherwise, 
the first kyte cf the first ccntrol section processed by the linkage 
editor will become the entry point. To enable restatement cf the 
original entry pfcoint, cr designation of a new entry point, the entry 
roint must have been identified originally as an external symbcl; that 
is, it must have appeared as an entry in the external symbol dictionary. 
External symbol identification is done automatically by the assembler 
if the entry point is the rame of a control section or START statement; 
ctherwise, an assembler ENTRY statement must ke used to identify the 
entry pcint name as an external symbol. 


When a new object module is added to or replaces part of the load 
module, the entry point is restated in one of three ways: 


e By placing the entry point symbol in the operand field of an EXTRN 
statement and an END statement in the new object module, 


e By using an END statement in the new okject module tc designate 
a new entry roint in the new object module. 


° By using a lirkage editcr ENTRY statement to designate either 
the original entry point or a new entry point for the load module. 


Further discussion of load module entry points is contained in the 
Linkage Editcr and Loader rublication, Order Number GC28-6538. 


Object Module Linkage 


Object modules, whether generated by the assembler or ancther language 
processor, may be combined by the linkage editor to produce a composite 
load mcdule, provided each object module ccnforms to the data formats 
and linkage conventions required. ‘This topic discusses the use of 

the CAIL system macro instruction to link an assembler language main 
program to subprograms produced by another processor. The Supervisor 
and Data Management Macre Instructions publication, Order Number GC28- 
6647, contains additional details concerning linkage conventions and 
the CALL system macro instruction. 
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Figure 8 is an example of statements used to establish the assembler- 
language progran linkage to FORTRAN and COBOL subprograms. 


If any input/output oferations are performed by called subprcgrams, 

aprropriate DD statements for the data sets used by the subprograms 

must be supplied. See the appropriate language programmer's guide , 
for an explanation of the CD statements and special data set record 


formats used for the processor. 


co 
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ENTRPT SAVE (14,12) 

LR 12,15 

USING ENTRPT,12 

ST 13,SVAREA+4 
LA 15,SVAREA 
ST 
LR 





15,8(13) 
13,15 


name,(V1,V2,V3),VL 


L 13,SVAREA+4 
RETURN (14,12) 
3 SVAREA DC 18F'0’ 
v1 DC (data) 
5 v2 DC (data) 
6 v3 DC (data) 
END 


1 This is an example of OS linkage convention. See the Supervisor and Data Management Services publication, 
Order Number GC28-6646, for details. 


2 The symbol used for “name” in this statement is: 
a. The name of a subroutine or function, when the linkage is to a FORTRAN-written subprogram. 


b. The name defined by the following COBOL statements in the procedure division: 


C ENTER LINKAGE. ENTRY‘name’. 


c. The name of a CSECT or START statement, or a name used in the operand field of an ENTRY statement in an 
assembler-language subprogram. 


The order in which the parameter list is written must reflect the order in which the called subprogram expects the 
argument. If the called routine is a FORTRAN-written function, the returned argument is not in the parameter list: a 
real or double precision function returns the value in floating point register zero; an integer function returns the value 
in general purpose register zero. 


NOTE: When linking to FORTRAN-written subprograms, consideration must be given to the storage requirements 

of IBCOM (FORTRAN execution-time !/O and interrupt handling routines) which accompanies the compiled FORTRAN 
subprogram. In some instances the call for IBCOM is not automatically generated during the FORTRAN ompilation. 
The FORTRAN !V Library publication, Order Number GC28-6596, provides information about |BCOM requirements and 
assembler statements used to call IBCOM. 


FORTRAN-written subprograms and FORTRAN library subprograms allow variable-length parameter lists in linkages 
which call them; therefore all linkages to FORTRAN subprograms are required to have the high-order bit in the last 
parameter in the linkage set to 1. COBOL-written subprograms have fixed-length calling linkages; therefore, for COBOL 
the high-order bit in the last parameter need not be set to 1. 


3 This statement reserves the save area needed by the called subprogram. When control is passed to the subprogram, 
register 13 contains the address of this area. 


4,5,6 When linking toa FORTRAN or COBOL subprogram, the data formats declared in these statements are determined 
by the data formats required by the FORTRAN or COBOL subprograms. 





Figure 8. Sample Assembler Linkage Statements for FORTRAN 
or CCECL Sukrrcgrars 
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Special CPU Programming Considerations 


You should be aware of operational differences Letween the Model 85, 
Model 91, and Model 195 and cther System/360 models. The primary 
differences are: 


° Non-sequential instruction execution -- 91 and 195 
e Extended precisicn machine instructions -- 85 and 195 
e Unaligned operands -- 85 and 195 


Controlling Instruction Execution Sequence 


The oder (91)and Model (95 maint ain a logical consistency with respect 
to their Own operations,~including the beginning and ending of I/O 
orerations, but they do nct assume responsibility for such consistency 
in the operations performed by asynchronous units. Consequently, for 
any asynchrcncus unit that depends upon a strict adherence to sequential 
{or serial) execution, a problem program must set up its cwn procedures 
to ensure the proper instruction sequence. 


For a program secticn that requires the serial or sequential execution 
cf instructions, the following 'no-operation' instruction: 


BCR N,0 N= 1,15 __ 


causes instruction deccding tc halt until the instructions that have 
already been decoded are executed. (This action is called a pipe-line 
drain.) On the Mcdel 91 and Model 195, this instruction ensures that™ 
all the instructions preceding it are executed kefore the instruction 
succeeding it is decoded. Use cf this instruction should be minimized, 
because it may affect the performance of the CPU. 


Isclating an instruction by preceding it and following it with a ECR 
N,0 instruction eliminates multiple imprecise interruptions frcm more 
than one instruction by virtue of the pipe-line drain effect. However, 
because multiple exceptions may occur in one instruction, this technique 
does not eliminate a multiple imprecise interrurpticn, nor does it , 
change an imprecise interruption into a precise interrupticn. The 

use of the BCR instruction does not assure you that you can fix up 

an error Situaticn. In general, the only information available will 
be the address of the BCR instruction. The length of the instruction 
preceding the BCR instructicn is not recorded, and generally there 

is nc way to determine what that instruction is. 


Note: BCR 0,0 does not cause a pipe-line drain. 
Extended-Precision Machine Instructions 


The extended-precisior arithmetic instructions and the rounding 
instructions of the Model 85 and the Model 195 are shown below. A 
complete descrirticn cf these instructions is in the System/360 
Principles of Operation, Order Number GA22-6821. 
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ADD NORMALIZED (extended operands, extended result) 
SUBTRACT NORMALIZED (extended operands, extended result) 
MULTIPLY (extended operands, extended result) 


MULTIPLY (long operands, extended result) 
MULTIPLY (long operands, extended result) 
LOAD ROUNDED (extended to long) 
LOAD ROUNDED (long to short) 





A program containing the extended-precision instructions cannot be 
executed successfully cn another Systenm/360 model unless those 
instructions are converted into others that can be executed by the 
non-Model 85 or Model 195 nachine. The OPSYN assembler instruction 
helrs provide a facility for doing this. 


OPSYN is described in the Assembler H Language Specificaticns Manual, 
Order Number GC26-3771. 


A type L DC instruction can ke used to specify an extended-precisicn 
(16-kyte) flcating-foint ccnstant. The [CC instruction is described 
in the Assembler Language nanual, Order Number GC28-6514. 


Unaligned (Byte-Oriented) Operands 


The woae1 (65)ana Mode1(195/will execute unprivileged RX and RS format 
instructions with fixed=pcint, floating-point, or logical operands 
that are not on integral boundaries. Assembly of such instructions 
normally produces the diagnostic tessage "IEV033 ALIGNMENT ERROR", 

A FARM option in the EXEC statement, AIGN or NCALGN, makes it possible 


to suppress the ressage and thereby obtain a clean assembly listing. 
The object ccde is not affected. 


Note that an assembled program that requires use of the Model 85 and 
Model 195 byte-criented operand feature cannot ke run on another 
machine, nor can it run successfully under the Cperating System if 

it violates any alignment restrictions imposed by the Operating System. 


Programming Considerations 
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Appendix A. Sample Program 


C The sarple prcegram included with Assembler H when it is received from 
IBM is described in this appendix. This program is a collection of 
kasic asserbler-language, nacrc, and conditional assembly features, 
most of which are unique to Assembler H. The circled letters in the 
description below refer to corresponding letters in the listing that 
fcllcws the description. 


(a) The job control language for the assembly consists of the IBM- 
supplied cataloged prcecedure ASMHC and the statements needed to 
use the procedure and supply input to the assembler. (In this 
sample, tke procedure statements begin with XX,) Note that three 
of the default PARM options are overridden in the EXEC statement 
that calls the procedure, 


By using the MULT (multiple assembly) option, this sample progran, 
the sample program in Appendix B, and the listings in Figure 6 
and Figure 7 were assenbled with one set of JCL cards. Object 
modules were not punched for any of the assemblies because the 
NODECK oftion is specified. The character string specified in 
the SYSPARM option is availakle to each assenkly. The character 
string is displayed in this program by using the system variable 
symbol &SYSFARM (statement 144). 


The External Symbol Dictionary shows a named common statement. 
The nared commen section is defined in statement 158. 
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(c) Statement 10: Save the current status of the PRINT staterent 
(CN, NCDATA,GEN). 


Statement 11: Leave ON in effect, modify the other two options 
to DATA, NCGEN. 


Statement 12: Macro call; note that the expansion (statement 
10) is not printed. 


Statement 14: All 28 kytes of data are displayed to the two- 
operand Dc. 


Statement 15: Restore prior status of PRINT. 


Statements 17 and 18: The generated output of the macrce WTO is 
shown and cnly the first 8 bytes of data are displayed. 


(©) Statements 14 and 18: Multiple constants are allowed in 
hexadecimal and binary [CC operands, and neither synbcl in the 
duplicaticn factcr has been defined yet. Definition occurs in 
statements 108 and 109. 


(E) Statements 26, 28, 136, and 155 illustrate use of the LOCTR 
assembler instruction. This feature allows one to break control 
sections down into suk-control sections. It may be used in CSECT, 
DSECT, and COM. LOCTR has many of the features of a control 
section for example, all of the first LOCTR in a section is 
asSigqned space, then the second, and so on. The name of the 
ccentrol section automatically names the first LOCTR section. 

Thus LOCTR A is begun, or resumed, at statements 2, 28, and 155. 
Note that the location counter value shown each time is the resumed 
value of the LCCTR. On the other hand, varicus LOCTR sections 
within a ccntrol secticn have common addressing as far as USING 
statements are concerned, subject to the computed displacement 
falling within 0 through 4095. In the sample, CCNSTANT is in 
LCCTR DEECEES but the instruction referencing it (statement 25) 

has no addressing prcblers. 


(®) Three-operand EQU. Here, we are assigning: (a) the value of E5 
(not yet defined) to A8, (b) the length attrikute of A5 to A8, 
and (c) the tyre attribute of A7 to A8. If no operand is present 
in an ECC statement, the type attribute is U and the length 
attribute is that cf the first term in the operand expression. 
Symkols present in the label and/or operand field must be 
previously defined. Note that it is not possible to express the 
tyre attribute of A7 directly in the EOC statement. The EQU 
statement at 32 could have been written 


A8 ECU B5,2,C'L' 
A8 EQU BS,X*2',X'Cu" 

(c) Set symbols &LA8 and &TA8 have not been declared in a LCL or GBL 
statement prior to their use here, Therefore, they are defaulted 
to local variakle symbols, as follows: 61A8 is a LCLA SET symbol 
because it appears in the name field of a SETA; &TA8 is a IcIc 
SET symkol kecause it is first used ina SETC. 


(H) MNOTE may appear in cpen code. As such, they have all properties 
of MNOTEsS inside macros, including sukstituticn. 
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A SETC expression may have a duplication factor. The SETA 
expression must be enclosed in parentheses and immediately precede 
the character string, the substring notation, or the type attribute 
reference. 


Statements 57-60 illustrate 4-byte self-defining values and unary 
+ and -. The value cf X will appear later in a literal address 
constant (see statement 162). Location counter values for EQU 
and USING (statement 3) display 4 bytes. 


The programmer macro DEMO is defined well after the start of the 
assembly. Macros can ke defined at any point and, having been 
defined and/cr expanded, can be redefined. Note that the 
parameters on the prototype are a mixture of keywords and 
pesitional operands. &SYSLIST may be used. The positional 
parameters are identified and numbered 1, 2, 3 from left tec right; 
keywords are skipped cver. 


Statement 70 illustrates the extended SET feature (as well as 
implicit declaration of &LOC(1) as a LCLC). Both &LOC(1) and 
&LOC (2) are assigned values. One SETA, SETB, or SETC statement 
can then do the work of many. 


Statement 72 is a model statement with a symkolic parameter in 

its operation field. This statement will ke edited as if it is 

a macro call; at this time, each operand will be denoted as 
positional or keyword. At macro call time, it will not be possible 
to reverse this decision. Even though treated as a macro, it 

is still expanded as a machine or assembler operation. 


Statement 74 illustrates the computed AGO statement. Control 
will pass to .MNOTE1 if SKFY2 is 1, to .MNOTE2 if &KEY2 is 2, 
to .MNOTE3 if EKEY3 cr will fall through to the model statement 
at 75 otherwise. 


Statenent 77 illustrates the extended AIF facility. This statement 
is written in the alternate format. The logical expressions are 
exarnined fren left tc right. Control passes to the sequence 

symbol corresponding to the first true expression encountered, 

else falls through to the next model statenent. 


Statement 87 contains a subscripted created SET symbol in the 

name field. Exclusive of the subscript notation, these SET symbols 
have the form &(e) where e is an expression wade up of character 
strings and/or variable symbols. When such a symbol is encountered 
at expansion time, the assembler evaluates e and attempts to use 
&(value) in place of &(e). Looking ahead, we see that DEMO is 

used aS a macro instruction in statement 97 and &KEY1=C. Thus, 

the 'e' in this case is X&KEY1 which has the value XC. Finally, 
the wacro-generator will use &XC(2) as the name field of this 

model statement. In statement 108, note that &XC (2) equals 
TRANSYLVANIA (statement 96). Finally, in the sequence field of 
statement 108, we see that this statement is a level 01 expansion 
of a programmer macro and the corresponding mcdel statement is 
statement nunker 87. 


Created SET symbols may be used wherever regular SET symbols are 
used in declarations, name fields or operands of SET statements, 
in medel statements, etc. Likewise, they are subject to all the 
restrictions of regular SET symbols. In the prcgrammer macro 
DEMO, it would not have been valid to have the statement GBLC 

& (XEKEY1) (1) because, in statement 71, we have ABLC &XA(5), 
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(&XB920) , &XC(1) and &(X&KEY1) (2) becomes &XC(2) unless, of course, 
&KEY1 was assigned scnething other than the value A, B, or C in 
the macro instruction DEMO, statement 97. In that case, we would 
need a global declaration statement if we wanted &(X&KEY1) to 

ke a gictal SET symbol. 


Because global declarations are processed at generation time and 
then only if the statement is encountered, we would insert the 
follcwing statements between, say, statements 71 and 72. 


AIF('&KEY1' EQ'A' ox 'EKEY1' EQ *B' or 'EKEY1' EC 'C'). SKIP 
GBIC &(X&KEY1) (1) 
-SKIE ANCE 


As the macro is defined, &(X&KEY1) will be a global SETC if &KEY1 
is A, B, or C3; otherwise it will be a LCLC or, possibly, a LCLA. 
In the macro, if &(X&KEY1) ELecomes a local, it will have a null 
or zero value. Created SET symbols are a powerful tool. However, 
their use requires a careful planning. 


In statements 93 and 94, note that &XA is declared as a subscripted 
glokal SETC variakle with a naximum subscript of 1 and, in the 
next statement (an extended SET statement), we store something 

into &XA(2). There is no contradiction here. The statement GBLC 
&XA(1) marks &XA as a sukscripted glokal SETC symkol any decimal 
self-defined number (1 through 2147483647) can be used. 
Furthermore, only a ncminal amount of space is set aside in the 
global dictionary -- this space is open-ended and will be increased 
on demand and cnly cr demand. 


Statement 97 is the macro instruction DEMO. Note that &F1 has 

the value WRITE. Therefore, the model statement at statement 

72 kecomes an inner wacro, WRITE, producing the code at statements 
98-103. The sequence field of these statements contains 03-1HBRD, 
indicating that they are generated by a level 03 macro (DEMO is 
01, WRITE is 02) named 1HBRCDWRS. It is an inner macro called 

by WRITE. 


Statements 108 and 109 contain some ordinary symbols longer than 
eight characters. ‘The limit for ordinary symbols, operation codes 
(for programmer and likrary macros and opr codes defined through 
OPSYN), variakle symbcls, and sequence symbols is sixty-three 
characters (including the & and e in the latter two instances, 
respectively). Most long symbols will probably be nearer to eight 
than sixty-three characters in length. Extremely long symbols 
are simply tcc difficult tc write, especially if the symbol is 
used frequently. The requirement that the operation field be 
present in the first statement of a continued statement is still 
in effect. Furthermore, names of (START, ESECT P 3 : 


etc. symbols are still restricted to Gight characters. 


Library macros may be inserted into the source stream as 
programmer macros by use of a COPY statement. The result 
(statements 118-126) is essentially a programmer macro definition. 
When a likrary macro is brought in and expanded by use cf a macro 
instructicn, the assenbler (1) looks the macro up by its member- 
name and (2) verifies that this same name is used in the operation 
field of the protctyre statement. Therefore, for example, DCB 
has to catalogued as DCB. However, as COPY code, the member name 
bears no relationship to any of the statements in the member. 
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Thus, several variations of a given macro could be stored asa 
library under separate names, then copied in at various places 

in a single assembly as needed. (Assembler H allows you to define 
and redefine a mwacrce any number of times). 


In statement 129, MARK is made a synonym of NCTE. To identify 
NCTE as a macro, it has to ke used as a macro instructicn or 
programner macro definiticn prior to its use in the operand field 
of an OPSYN statement. The COPY code at 118- 126 is a programmer 
macro definiticn. MThe macro instruction at statement 130 is MARK. 
We can use MARK and NOTE interchangeably. If desired, we could 
put these two words on separate lines (that is, make NOTE 
synomomous with the null string). This would remove NOTE as a 
macro definition. Then, we could call the macro only as MARK. 


Statement 144 demonstrates &SYSTIME, &SYSDATE and &SYSFARM. The 
values for the first two are the same as we use on the heading 
line. The value for &SYSPARM is the value passed in the FARM 
field of the EXEC statement on the default value assigned to 
&SYSPARM when Assenbler H is installed. 


System variable symbols &SYSLOC and &SYSECT are displayed. The 
sequence field indicates that the model statements are statenents 
148 and 149. 


Illustration of named COMMON. Note that estaklishing 
addressakility to such a section can be obtained with a USING 
PD2 register statement. With blank COMMON, one has to make use 
of some lakel cn a statement after the CCMMON statement. 


If there are literals outstanding when the END statement is 
encountered, they are assigned to the LOCTR currently in effect 
for the first contrcl section in the assembly. This may or may 
not put the literals at the end of the first control secticn. 
In this sarple assembly, the first control section, A, has two 
IccTRs, A and CTEECEES. Eecause A is active (at statement 155), 
the literals are assembled there. You always have the ability 
to ccntrol frlacement cf literal rools by means of the LTORG 
statement. Note that X'FFFFFFE8' is used for the ccntents of 
A(x), statement 162. The symbol X was assigned the value (4*- 
6) by an ECU in statement 43. 
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//MRTSMP JOB (258753 ,D81) MR oTALLEY,MSGLEVEL=1 
i EXEC ASMHC,PARM.C=(NODECK »MULT » * SYSPARM=SAMPLE*PROGRAM® ) 
XXC EXEC PGM=IEV90,KEGION=200K 
XXSYSLIB DD = DSN=SYS1.MACLI3sDISP=SHR 
XXSYSUT1 O00 UNIT=(SYSDA,SEP=SYSLIG),SPACE=(CYL 9 (2095) ) sDSN=ESYSUTL 
XXSYSPUNTH DD SYSOUT=ByDCB=(BLKSIZE= 806) »SPACE=(CYLs (59570)) 
@) //SYSPRENT DO SYSOUT=(Ay 921) yDCB={BLKSTZF=3509), xX 
“t UNIT=(»SEP=¢SYSUT1sSYSPUNCH) ) 
X/SYSPRINT DD SYSOUT=A, DCB=(BLKSIZE=3509) pUNIT=(_SEP=CSYSUTL,SYSPUNCH) ) 
7/SYSIN OD * 
TEF2361 ALLOC. FOR MRTSMP C 
TEF?2]371 135 ALLUCATED TO SYSLIB 
[EF2371 290 ALLOCATED TQ SYSUTL 
TEF2371 132 ALLOCATED TO SYSPUNCH 
TEF2379 131 ALLOCATED TO SYSPRINT 
TEF2371 130 ALLOCATED TO SYSIN 


Sf eee 


BIGNAME EXTERNAL SYMBUL DICTIONARY * PAGE 1 

SYMBOL TYPE IW ADOR LENGTH LD 1D ASM HV OL 11.52 05/20/70 

A SD 0001 000000 90000C xo 
PD2 CM 9002 000000 0007D2 


Wy 
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BIGNAME SAMPLE PROGRAM. 1ST TITLE STATEMENT HAS NO NAME? 2ND ONE DOES PAGE 2 


LOC OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT ASM H V O1 11.52 05/20/70 
000000 2A CSECT 
00000000 3 USING #8 
SF RRR KEES EERE EEA EK EERE REREAK EERE EER EREREEE KER ERE EKER KE KEREEKEAKEEE EE 
6 PUSH AND POP STATEMENTS * 
7 * PUSH DUWN THE PRINT STATEMENT, REPLACE IT, RETRIEVE ORIGINAL * 
GB EKER EEE HEE EKER ERRREEKELEKEK KA E KER ERE KERS KEREREKEEREREEEKAKER 
10 PUSH PRINT SAVE DEFAULT SETTING * PRINT ON,NODATA,GEN® 
il PRINT NOGEN,DATA 
12 WTO) MF=4E,(1)) EXPANSION NOT SHOWN 
000002 01230ABC0102030A (©) 14 OC X*123,ABC*, (REALL YLONGSYMBOL-TRANSYLVANIA)B* Ly 10,119101091011,1100° 
00000A 0B80C0102030ANB0C 


000012 010203CA0BOCOLO2 
QO000LA 030A0K0C 9 
15 PoP PRINT RESTORE DEFAULT PRINT SETTING 


16 wTo MF=CE~e(1)) EXPANSION SHOWN 

QOOOLE 0A23 17+ svc 35 ISSUE SVC O1-wWTO 

000020 01230A48C0102030A 18 OC X*123,ABC*, (REALL YLONGSYMBOL-T RANSYLVANIAIB*1L,10y 11910109 1011,1100° 
20 FERERKEKKEREA ERA HEEES EERE EERE LAE EEK ERE ELAR ERE EK KEL AEREL ERE ERE EEE EK 
21 * LOCTR INSTRUCTION * 
22 * LOCTR ALLOWS *REMOTE*® ASSEMBLY OF CONSTANT * 
23 RRRREE ER RRA ARERR ELE EERE AE EE REE EEE EE EKER EES OR BEER EERE & EEK EG EAE ERE 

00003C 5850 8098 00098 25 L 5+CONSTANT 

| 000098 26 DEECEES LOCTR 
000098 00000005 27 CONSTANT OC ESS? CONSTANT CODED HERE, ASSEMBLED BEHIND LOCTR A 
000040 28 A LOCTR RETURN TO IST LOCTR EN CSECT A 


@) ZO KERER EERE EK EHKERER EEE EES ER ERK EKER EEE E EERE EE KKAEKKE ERE EK ERK EKER EEKERER 


31 * 3 QPERAND EQUATE WITH FORWARD REFERENCE IN LST OPERAND * 
BQ FREER REE ARERR EKER ERE SHEET EEE RES EEE ER EE ES EER EEE ERE EEERAE EE EES ERERESEE 


000040 1812 34 AS LR 12 L*AS = 2, T'A5S = 1 
35 PRINT DATA 
900042 000000C00000 
000048 413243F6A8885A30 36 AT DC L*3.141592653589793238462 643383279502 88419725 LYAT = LOsT*AT = L 
000050 338D313198A2E037 
37 &TYPE SETC T*aT 
38 A8 EQU B5,L*A5,CTETYPE® 
000000A0 +A8 £QU BSeLA5,CPLE 
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BIGNAME SAMPLE PROGRAM. IST TITLE STATEMENT HAS NO NAME, 2ND ONE DUES PAGE 3 


LOC OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT 


ASM HV 01 £1.52 05/20/70 


40 tec ato i toi tok to i todo imo toi ak tala sia idiot date i i iot aii it tatat oti te 
41 * IMPLICIT DECLARATION OF LOCALS GAy &C -- USE OF SETC NUP FACTOR TO * 


+%*,&C HAS VALUE = 


STRING sSTRINGs STRINGs STRING, STRING, 


53 RRR REK ARH ERERK ERE EERE KEKE EEA EERE HE ERE EERE EERE EER ERE AREER EAE EER ERE 
54 * EXAMPLES OF 4 BYTE SELF-DEFENED TERMS, UNARY + AND — * 


42 * PRODUCE SETC STRING LONGER THAN 8, MNOTE IN OPEN CODE x 
GD ERR RAK REAR EEREEEREK EKA RK EK EK KR EE ERASERS EKA KEK EKKKAKE KAA 
45 &LAB SETA L'A8 

G) 46 &TAB SETC T*A8 
47 MNOTE *,'LENGTH OF A8 = &LA8, TYPE OF A8 = &TAB? 

(n) +*,LENGTH OF A8 = 2, TYPE OF AB = L 
49 &A SETA 2 

G) 50 @c SETC {&At3)*STRING,* 
51 MNOTE *,*66C HAS VALUE = &C* 


55 RRR ER ETEK ER ERA ERE ERE EERE EAE EK KR KEKE EKERERE ERE ERAEKAER ERE 


000058 TFFFFFFFCLC2C3C4 57 pc A(2147483647,C* ABCD! yX*FFFFFFFF®) 
000060 FFFFFFFF 

000064 1810 58 LR —14+2,16+-3 

FFFFFFES 60 X EQU 44-6 
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BIGNAME INSERT PROGRAMMER MACRO IN SOURCE STREAM NOW PAGE 4 


Loc OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT ASM H V OL 11.52 05/20/70 


62 FREE ERE RARE REL ERE RE EERE EEE EEE EE EEE REE ROR TOR FOR AR HE REE E EE EEE 
63 * MIXED KEYWORDS AND POSITIONAL PARAMETERS, EXTENDED AGO ANO AIF * 
64 * STATEMENTS, DECLARATION AND USE OF SUBSCRIPTED SET SYMBOLS, * 
65 * USE OF CREATED SET SYMBOLS, EXTENDED SET STATEMENTS * 
O6 BERRA EK EE EEE EERE EEE EES EERE ERE ERE AEA ERE EERE EEE EEE EERE RAEERE REESE EE 





«) 68 MACRO 
69 DEMU E&P 1,GKEY1=Ay EP2, EKEY2=1)6&P39 EKEY3=3 9 EPS 
© 70 GLUCKL) SETC *2%,"3! ELOC IS DIMENSIONED LCLC BY DEFAULT 
71 GBLC  &XAC5) y &XB( 20) eEXCU1) 
Qn) 72 EPL  ESYSLIST(4) p&SYSLIST(5) pG&SYSLIST (6) 9 MF=E 
73 &N SETA 1 
() 14 AGO (&KEY2) »MNUTEL» sMNOTE2¢ «MNOTES 
75 &N SETA 2 
16 MNOTE *,"GEKEY2 NOT 1,2, OR 3---USE &EKEY3 IN PLACE OF IT! 
©) 17 AIF  (&KEY3 EQ L).MNOTEL, x 
(GKEY3 EQ 2).MNOTE2,(EKEY3 EQ 3).MNOTE3 
78 MNOTE *,*BOTH EEKEY2 AND GEKEY3 FAIL TO QUALIFY® 
79 AGO «COMMON 
80 .MNOTEL MNOTE *, "G&KEYELUC(EN) = 1° 
81 AGO «COMMON 
82 .MNOTE2 MNOTE *,"EEKEYELOC(EN) = 2° 
83 AGO «COMMON 
84 .MNOTE3 MNOTE #,"GEKEYELOC(EN) = 3¢ 
85 .COMMON L 548410) NOTE THAT OPCUDES, OPERANDS & COMMENTS 
86 EXB(2) SR 9910 ON MODEL STATEMENTS 
@) 87 G(XEKEVL) (2) LM 12913¢=ACA59X) ARE KEPT IN PLACE UNLESS DISPLACED 
8B &P2 ST 7,&P3 AS A RESULT OF SUBSTITUTION 
89 MEND 
Ol HeEKE DEMO MACRO INSTRUCTION (CALL) 
@) 93 GBLC  &XAC1) 9 &XB( 2), EXC03) 
94 EXALL) SETC "A's *MISSISSIPPE® 
95 &XB(L) SETC *B*,* SUSQUEHANNA? 
96 &XC(1) SETC 'C',*TRANSYLVANIA® 
) 97 DEMO KEY3=2 »WRITE;REALLYLUNGSYMBOL M 
A848 (BS—CONSTANT—7) (3) gKEYL=C 9 (6) 9 SFo N 
(8) yKEY2=7 
000066 1816 98+ LR 196 LOAD DECB ADDRESS 03-1HBRD 
000068 9220 1005 00005 99+ MVI SCL), x#208 SET TYPE FIELD 03-THBRD 
00006C 5081 0008 00008 ~=—-100# ST By 8C140) STORE DCB ADORESS 03-THBRD 
000070 58F1 0008 00008 101+ L 1598(1,0) LOAD DCB ADDRESS 03-THBRD 
000074 58F0 F030 00030 102+ L 1594810515) LOAD RDWR ROUTINE ADDR 03-IHBRD 
000078 OSEF 103+ BALR 14,15 LINK TO ROWR ROUTINE 03-IHBRD 
1044+%,EKEY2 NOT le2y OR 3---USE &KEY3 IN PLACE OF IT 01-00076 
105+, EKEY3 = 2 01-00082 
00007A 5850 A008 00008 1064 L 548,10) NOTE THAT OPCODES, OPERANDS & COMMENTS  01-00085 
00007€ 189A LO7#SUSQUEHANNA SR 9,10 ON MODEL STATEMENTS 01-00086 
000080 98CD 38090 00090($)108+TRANSYLVANIA LM 12,13,=ALA5,X) | ARE KEPT IN PLACE UNLESS DISPLACED  01-00087 
000084 5073 80A8 000A8 ~~ 109+REALLYLONGSYMBOL ST 7, A8+8*(B5-CONSTANT-7)(3) X01-00088 
+ AS A RESULT OF SUBSTITUTION 
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BIGNAME INSERT PROGRAMMER MACRO IN SOURCE STREAM NOW 


Loc OBJECT CODE 


900088 1816 
N0008A 58FO 1054 
OQOOOSE O5EF 


00009C 
00009Cc 00000000 
Q000A0 0800004000000050 


QOOO00A8 E3C904C5407E40F1 


00000Cc 
00000C 
000090 


000000 
000000 
0007D0 1867 


000090 00000040FFFFFFE8 


ADDR1 ADOR2 


@ 


00054 


QO © 


STMT 


lil 
112 
113 
114 
115 


117 
118 
119 
120 
121 
122 
123 
124 
125 
126 


129 
130 
131+ 
132+ 
133+ 


135 
136 


137 


139 
140 
141 


143 
144 
+ 


146 
147 
148 
149 
150 


152 
153+ 
154+ 
155 


157 
158 
159 
160 
161 
162 


SOURCE STATEMENT ASM H V O1 11.52 


2a aac kg io i toto ia doko teak tote iota tek toi got tatoo a dtak toto kak tk to tot te tok 
* COPY *NUTE' MACRO IN FROM MACLIBs RENAME IT *MARK*, CALL IT UNDER * 


* ITS ALIAS -- IN EXPANSION OF MARK, NOTICE REFERENCE BACK TO * 
* DEFINITION STATEMENTS IN "COLUMNS* 76-80 OF EXPANSION * 
DR RR RR ee a ae a a aR RR a a a he ge A a Re a ae Se Ra a a a te a ae opcode a ae a a a he a he ee a He a 
COPY NOTE 
_ MACRO 
ENAME NOTE &0CB,y&DUMMY= 
ATF ('eDCR® FQ *#).FRR 
ENAMFE EHBINNRA &0CB 
L 159 84(0.1) LOAD NOTE RTN ADDRESS 
BALR) 14,15 LINK TO NOTE ROUTINE 
MEXIT 
eERR THBERMAC 6 
MEND 
MARK OPSYN NOTE COMMENTS UF GENERATED STATEMENTS OCCUPY SAME 
MARK {6) "COLUMNS? AS THOSE IN MODEL STATEMENTS 
LR 156 LOAD PARAMETER REG 1 
L 15584(091) LOAD NOTE RIN ADDRESS 


BALR 14,15 LINK TO NOTE ROUTINE 
Toi to to Roi lo i toto at a tok tok dotoiog tii toto tak a iota foie got ak a aa RR RR a A a Rak Beak Rk 
DEECEES LOCTR SWITCH TG ALTERNATE LOCATIGN COUNTER 

BS cCw X* 08498590780 

FE RE Ra RIOR aa I ROR Ro a ti Oi io i RR IR IO Ae 


* DISPLAY OF &SYSTIME, ESYSDATEs ESYSPARM AND &SYSLOC * 
PARE RRR RRR AACR RR RR RC BOR ROK TOR ROR RE SR RR SOR ORRR  R R BOR tt 


PRENT NODATA 
DC C'TIME = &SYSTIME, DATE = GSYSDATE, PARM = &SYSPARM! 
OC C'TIME = 11.522 DATE = 05/20/70, PARM = SAMPLE®PROGRAM! 


MACRO 
LOCATE 
ESYSECT CSECT 
6SY¥YSLOC LOCTR 


DISPLAY OF CURRENT CONTROL SECTION 
AND LOCATION COUNTER 


MEND- 

LOCATE 
A CSECT DISPLAY OF CURRENT CONTROL SECTION 
OFECEES LOCTR AND LOCATION COUNTER 
A LOCTR 


REEEKEEKRAE EKER ESKER H EER KEKE KEKE SEKAKEKE EK EREKEEREREAKERERERAEEERERES 


PD2 COM NAMED COMMON THROWN IN FOR GOOD MEASURE 
OS SOO0F. : 
LR 697 
END 


=A(A5,X) 
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PAGE 5 


05/20/70 


00020000 
00040017 
00060000 
90080000 
00100000 
00120000 
00140000 
00160000 
00180000 


02-IHBIN 
01-00122 
01-00123 


01-00148 
01-00149 


) 


BIGNAME RELOCATION DICTIONARY PAGE 6 
POS.ID REL.ID FLAGS ADDRESS ASM HV O1 11.52 05/20/70 
oool 0001 oc 000090 
oool 0001 08 OOOOAL 


ee sare ''U’'™ O00, 


BIGNAME CROSS REFERENCE PAGE 7 
SYMBOL LEN VALUE DEFN REFERENCES ASM H V 01 11.52 05/20/70 
A 00001 00000000 0002 0028 0153 0155 

AS 00002 900040 0034 0038 0162 

AT OO00L6 000048 0036 

A8 00002 O00000A0 0038 0109 

BS 00008 O0000A0 0137 0038 0109 0137 


CONSTANT 00004 000098 0027 0025 0109 
DEECEES 00001 00000098 0026 0136 0154 


PD2 00001 00000000 0158 
REALLYLONGSYMBOL 

00004 000084 0109 0014 0018 
SUSQUEHANNA 

00002 OOOOTE 0107 
TRANSYLVANIA 

00004 000080 0108 0014 0018 
x QOOOL FFFFFFE8 0060 0162 


=A(A53X) 00004 000090 6162 0108 





S—eer er’ Rare eT RR 


BIGNAME DIAGNUSTIC CROSS REFERENCE AND ASSEMBLER SUMMARY PAGE 8 


ASM HV OL 11.52 05/20/70 
NO STATEMENTS FLAGGED IN THIS ASSEMBLY 


OVERRIDING PARAMETERS-— NODECK,MULT»,SYSPARM=SAMPLE*PROGRAM 

OPTIONS FOR THIS ASSEMBLY 

NODECK, NOLOADs LIST, XREF,y NORENT, NOTEST, MULT: ALGNy ESD, RLDy LINECNT= 55, MSGLEVEL= O- SYSPARM=SAMPLE*PROGRAM 
NO GVERRIDING DD NAMES 


136 CARDS FROM SYSIN 432 CAROS FROM SYSLIB 
197 LINES OUTPUT 0 CARDS OUTPUT 
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Appendix B. Sample Macro Trace and Dump (MHELP) 


The Macro Trace and Dump (MHELP) facility is a useful means of debugging 
macro definitions. MHELF can ke used anywhere in the source program 

or in macro definitions. MHELP is processed during macro generation. 

It is completely dynamic; you can branch around the MHELP statements 

by using AIF cr AGO statenents. Therefore, its use can be controlled 

by symbolic parameters and SET symbols. 


The following sample program illustrates the five primary functions 

cf MBELP. Since most of the information produced is unrelated to 
statement numbers, the dumps and traces in the listing are marked with 
circled numbers. Most dumps refer to statement numbers. If you request 
MHELF information about a likrary macro definition, the first five 
characters of the nacre name will appear in place of the statement 
number. To get the statement numbers, you should use COPY to cory 

the library definition intc the source program prior to the macro call. 


Macro Call Trace (MHELP 1) 


Item illustrates an outer macro call, an inner one. In each 
case, the amount of information given is brief. This trace is given 
after successful entry intc the macro; no dump is given if error 
ccnditions prevent an entry. 


Macro Entry Dump (MHELP 16) 


This provides values of system variable symbols and symbolic parameters 
at the time the macro is called. The following numbering system is 
used: 


Number Item 


000 &S YS NDX 

001 &SYSECT 

002 &SYSLCC 

003 & SYSTIME 

004 SSYSLATE 

005 &SYSPARM 

006 NAME FIELD CN MACRO INSTRUCTION 


If there are NKW keyword parameters, they follow in order of appearance 
cn the prototype statement. 


007 lst keyword value 
008 2nd keyword value 


0064+NKW NKWth keyword value 
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If there are NPP positicnal rarameters, they follow in order of 
appearence in the macro instruction. 


0074NKW ist pesitional parameter values 
0084+NKW . 2nd positional parameter values C 
: J 


006+NKW+NPP NPPth positional parameter values 


For example, item has one keyword parameter (&OFFSET) and one 
positional parameter. The value of the keyword parameter appears 
Orposite 110006, the positional parameter, opposite 110007. In both 
the prototyre (statement 3) and the macro instruction (statement 54), 
the positional parameter appears in the first operand field, the keyword 
in the second. A length appears between the NUM and VALUE fields. 

A length of NUL indicates the corresponding item is empty. 


Item illustrates an inner call containing zero keywcrds, and 
two positicnal parameters. 


Macro AIF Dump (MHELP 4) 


Items @) P @D, (fe) , eee are examples of these dumps. Each such 
dump includes a compiete set cf unsubscripted SET symbols with values. 
This list covers all unsubscripted variable symbols which appear in 
the narwe field of a SET statement in the macro definition. Values 

of elements cf dimensicned SET symbols are not displayed. 


MACRO BRANCH TRACE (MEELP 2). CC 
a 


This provides a one-line trace for each AGO and true AIF kranch within 
a programmer macre. Ir any such branch, the "branched from" statement 
number, the "branched to" statement number and the macro name are 
included. Note, in example a , the "branched to" statement number 
indicated is not that of the ANOP statement Learing the target sequence 
symbol kut rather that of the statement following it. The branch trace 
facility is suspended when likrary macros are expanded and MHELP 2 

is in effect. To chtain a macro branch trace for such a macro, one 
would have to insert a COFY "macro-name" statement in the source deck 
at some point pricr to the MHELP 2 statement of interest. 


Macro Exit Dump (MHELP 8) 


This provides a dump of the same group of SET symbols as are included 
in the Macro AIF dump (see item C above) when a MEXIT or MEND is 
encountered, 


Note that local and/or glokal variable symbols are not displayed at 


any point unless they arprear in the current macro explicitly as SET 
symkols. 
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SAMPLE MHELP TRACE AND DUMP PAGE 2 





LOC ORJECT CODE ADDORL ADDR2 STMT SOURCE STATEMENT ASM H V OL 11.52 05/19/70 
2 * INCLUDE MACRO DEFINITIONS TO BE ‘TRACED IN THE SOURCE PROGRAM 
000000 4 CSFCT 
5 COPY... LNSRCH 
6 MACRO 
7 &NAME LNSRCH &ARG: BEOFFSET=STNUM3-STCHAIN 
8 LCLC ELABEL 
9 &LABEL SETC ‘A&SYSNDX* GFNERATE SYMBOL 
10 AIF (T'ENAME FQ "Ot).SKIP 
11 &LABEL SETC *ENAME® IF MACRO CALL HAS LABEL, USE IT 
12 .SKIP ANUP INSTEAD OF GENERATED SYMBOL 
13 GLABEL LA Oy GNFFSET LUAD REG. 0 
14 SCHI &ARG,OCL) SFARCH 
15 BC Ly GLABEL if MAX REACHED, CONTINUE 
16 MEND 
18 COPY SCHI 
19 MACRO 
20 &NM SCHI &COMP,&LIST 
21 LCLA E&CNT 
22 LCLC &CMPADR 
23 &CNT SELA 1 
24 &NM STM 191594(13) 
25 TEST ANUP 
26 &CMPADR SETC "ECMPADR'. tECOMP!(ECNT? 1) 
27 AIF (*ECOMPTCECNT,1) FQ *(*).LPAR 
28 &CNT SETA &CNT#+1 
29 ALF {&CNT LT K*&ECOMP).TEST 
30 .NOLNTH ANUP 
31 LA 3, &COMP COMPARAND 
32 AGO CONTIN 
33 .LPAR ALF (*ECOMP# (ECNT+1¢1) EQ *5°). FINISH 
34 &CNT SETA &CNT+1 
35 AIF (&CNT LT K*&CUMP).LPAR 
36 AGU «NOLNTH 


37 «FINISH ANUP 
38 &CMPADR SETE *ECMPADR'.*&CUMP! ( ECNT 429K "&COMP-ECNT) 


39 LA 3, &ECMPADR COMPARAND SANS LENGTH 

40 .CONTIN ANOP 

4L LA L,éLIST LIST HEADER ; 

42 MVC &COMP,0(0) DUMMY MOVE TO GET COMP LENGTH 
43 ORG 6 CHANGE MVC TO MVI 

44 DC x*92e MVI NPCODE 

45 ORG *+1 PRESERVE LENGTH AS IMMED OPND 
46 oc x*pooot RESULT IS MVI O€13)¢L 

47 L 15,=V(SCHI) 

48 BALR) 14,15 

49 LM Lyl594t13) 

50 MEXIT 

51 MEND 
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SAMPLE MHELP TRACE AND OUMP 


LOC OBJECT CODE ADOR1 ADOR2 STMT 


000000 53 
000000 05CO0 54 
00000002 55 
57 
58 


® © 


PAGE 3 


SGURCE STATEMENT ASM H V 01 11.52 05/19/70 


TEST 


CSECT 
BALR) 1240 
USING *,12 


. MHELP BPLLILil’® - REQUEST ALL MHELP FUNCTIONS 


CNSRCH“LESTUINE, OFFSET=LISTLINE-LISTNEXT 


++//MHELP. CALL TO MACRO LNSRCH  . DEPTH=001, SYSNDX=0001, STMT 00058 


//MHELP ENTRY TO LNSRCH «. MODEL STMT 00000, DEPTH=O00L, SYSNDX=0001, KWCNT=OOL 
J///PARAMETERS (SYSNDXsSYSECTsSYSLOC sSYSTIMEsSYSDATE, SYSPARMyNAMEsKWSePPS) /// 
//7NUM LNTH VALUE (64 CHARS/LINE) 


4/0000 
4/0001 
4/0002 
7/0003 
410004 
4/0005 
11/0006 
7/0007 
4/0008 


004 0001 
004 TEST 
004 TEST 
005 11.52 


008 05/19/70 

014 SAMPLE*PRUGRAM 
NUL 

OlL7 LISTLINE-LISTNEXT 
008 LISTLINE 


//MHELP AIF IN LNSRCH . MODEL STMT 00010, DEPTH=00L, SYSNDX=0001, KWCNT=00L 
///7SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
7/0000 LCLC LABEL LNTH= 005 


‘i 


VAL=A0001 


++//MHELP. BRANCH FROM STMT 00010 TO STMT 00013 IN MACRO LNSRCH 


000002 4100 9002 00002 59+A0001 LA OyLISTLINE-LISTNEXT LOAD REG. 0 01-00013 
++//MHELP. CALL TO MACRO SCHI « DEPTH=002, SYSNDX=0002, STMT 00014 
i6B //MHELP ENTRY TO SCHI » MODEL STMT 00000, DEPTH=002, SYSNDX=00025 KWCNT=000 


JIT IPARAMETERS (SYSNDX,SYSECT, SYSLOC,SYSTIMEsSYSDATEs SYSPARM, NAME ¢KWSePPS) /// 


7/NUM LNTH VALUE (64 CHARS/LINE}) 
4/0000 004 0002 
7/0001 004 TEST 
7/0002 004 TEST 
4/0003 005 11.52 
4/0004 008 05/19/70 
7/0005 O14 SAMPLE*PROGRAM 
7700Q6 NUL 
4/0007 008 LISTLINE 
7/0008 004 0Ot1) 
000006 9O0IF 0004 00004 60+ STM 1yt5e4(13) 02-00024 
‘ 
//MHELP AIF IN SCHI « MODEL STMT 00027, DEPTH=002, SYSNDX=0002, KWCNT=000 
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SAMPLE MHELP TRACE AND DUMP PAGE 4 
LOC OBJECT CODE ADNRL ADDR2 STMT SOURCE STATEMENT ASM H V OL 11.52 05/19/70 
J///S5ET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
4/0000 LCLA CNT VAL= 0000000001 
770001 LCLC CMPADR LNTH= 001 
4] VAL=L 
//MHELP AIF IN SCHI e MODEL STMT 00029, DEPTH=002, SYSNDX=0002, KWCNT=000 
J/1/SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
7/0000 LCLA CNT VAL= 0000000002 
4/0001 LCLC CMPADR LNTH= O01 
41 VAL=L 


++//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 


® ® 


//MHELP ATF IN SCHL « MODEL STMT 00027+ DEPTH=002 SYSNDX=0002, KWCNT=000 
JI//SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
4/0000 LCLA CNT VAL= 0000000002 
7/0001 LCLC CMPADR LNTH= 002 
4/ VAL=LI 

//MHELP AIF IN SCHI » MODEL STMT G0029~¢ DEPTH=002s SYSNDX=0002, KWCNT=000 
4///SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
4/0000 LCLA CNT VAL= 0000000003 
7/0001 LCLE CMPADR LUNTH= 002 
ff VAL=LI 


++//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHE 





® 


//MHELP AIF IN SCHI » MODEL STMT 00027e DEPTH=002, SYSNDX=0002, KWCNT=000 
//7/5ET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

4/0000 LCLA CNT VAL= 0000000003 
4/0001 LCLC CMPADR LNTH= 003 

4f VAL=LIS 

//7MHELP AIF IN SCHI « MODEL STMT 00029, DEPTH=0022 SYSNDX=0002, KWCNT=000 
///7S5ET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

4/0000 LCLA CNT VAL= 0000000004 
7/0001 LCLC CMP ADR LNTH= 003 

Mt VAL=LIS 


++//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 


//MHELP AIF IN SCHI « MODEL STMT 00027, DEPTH=002, SYSNOX=0002, KWCNT=000 
J///S€T SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

4/0000 LCLA CNT VAL= 0000000004 
7/0001 LCLC CMP ADR LNTH= 004 

v/ VAL=LIST 
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SAMPLE MHELP TRACE AND DUMP 


OBJECT CODE ADDR1 ADDR2 


PAGE 5 

SOURCE STATEMENT ASM H V 02 11.52 05/19/70 
//MHELP AIF IN SCHI « MODEL STMT 00029, DEPTH=002, SYSNDX=0002, KWCNT=000 
////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
7/0000 LCLA CNT VAL= 0000000005 
7/0001 LCLCE CMPADR LNTH= 004 
/f VAL=LIST 
++//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 
7/MHELP ATF IN SCHIE « MODEL STMT 00027, DEPTH=002, SYSNNX=0002,5 KWCNT=000 
7///7SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// : 
7/0000 LCLA CNT VAL= 0000000005 
7/0001 LCLC CMPADR LNTH= 005 
7/ VAL=LISTL 
7/MHELP ALF IN SCHI » MODEL STMT 00029, DEPTH=002- SYSNDX=0002_, KWCNT=000 
//7/SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
7/0000 LCLA CNT VAL= 0000000006 
7/0001 LCLC CMP ADR LNTH= 005 
Vf VAL=LISTL 
++//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 
//MHELP AIF IN SCHI « MODEL STMT 90027, DEPTH=002y SYSNOX=0002, KWCNT=000 
//7/S5SET SYMBOLS (SKEPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
7/0000 LCLA CNT VAL= 0000000006 
7/0001 LCLC CMPADR LNTH= 006 
4/ VAL=LISTLI 
7/7MHELP AIF IN SCHI « MODEL STMT 00029, DEPTH=002»5 SYSNDX=0002,y KWCNT=000 
////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
7/0000 LCLA CNT VAL= 0000000007 
7/0001 LCLC CMPADR LNTH= 006 
vf VAL=LISTLI 
+4+//MHELP. BRANCH FRNM STMT 00029 TO STMT 00026 IN MACRO SCHI 
//MHELP AIF IN SCHI « MODEL STMT 00027, DEPTH=002, SYSNDX=0002~¢ KWCNT=000 
///7SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
4/0000 LCLA CNT VAL= 0000000007 
7/0001 LCLC CMPADR LNTH= 007 
4/ VAL=LISTLIN 
//MHELP AIF IN SCHI » MODEL STMT 00029, DEPTH=002, SYSNDX=0002, KWCNT=000 


4///SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
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LOC 


QOOO0A 


QOOOOE 
000012 
000018 
000012 
000013 
000014 
000016 
OOOOLA 
OoooLCc 


000020 


000024 
000026 
000030 
000030 
000000 


SAMPLE MHELP TRACE AND DUMP 


OBJECT CODE 


4130 C024 00026 
4111 0000 00000 
D202 C024 0000 00026 00000 


000012 

92 

000014 

p000 

58F0 CO2E 00030 
OSEF 

981F 9004 00004 


4710 C000 00002 


00000000 
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ADDRL ADDR2 STMT 


61+ 


62+ 
63+ 
64+ 
65+ 
66+ 
67+ 
68+ 
69+ 
70+ 


71+ 


T2 
73 
14 
75 
16 
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SOURCE STATEMENT ASM H V 01 11.52 05/19/70 


7/0000 LCLA CNT VAL= 0000000008 
7/0001 LCLC CMPADR LNTH= 007 
41 VAL=LISTLIN 

La BeLISTLINE COMPARAND 02-00031 


++//MHELP. BRANCH FROM STMT 00032 TO STMT 00041 IN MACRO SCHI 


LA 1,01) LIST HEADER 02-00041 
MVC LISTLINE,O(9) DUMMY MOVE TO GET COMP LENGTH 02-00042 
ORG *-6 CHANGE MVC TO MVI 02-00043 
DC x'g2t MVI OPCODE 02-00044 
QRG ¥+) PRESERVE LENGTH AS IMMED OPND 02-00045 
nc x*pooot RESULT ES MVE O(L3) aL 02-00046 
L 15s=V(SCHI) 02-00047 
BALR 14415 02-00048 
LM 2o1594(13) 02-00049 
/¢MHELP EXIT FROM SCHI « MODEL STMT 00050, DEPTH=002+ SYSNDX=00029 KWCNT=000 
J///5ET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
7/0000 LCLA CNT VAL= 0000000008 
7/0001 LCLC CMP ADR LNTH= 007 
// VAL=LISTLIN 
BC 1,A0001 IF MAX REACHED, CONTINUE 01-00015 


J/MHELP EXIT FROM LNSRCH . MODEL STMT 00016, DEPTH=001, SYSNDX=0001, KWCNT=001 
J///SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

4/0000 LCLC LABEL LNTH= 005 

4/ VAL=A0001 


LISTNEXT DS H 
LISTLINE DS FL3*O* 
LTORG 
=VCUSCHL) 
END TEST 
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ESD Card Format 


Appendix C. Object Deck Output 


The format of the ESD card is as follows: 


Columns Contents 
1 12-2-9 punch 
2-4 ESD 
5- 10 Blank 
11-12 Variable field count -- number of bytes 
of infcrnaticn in variable field (columns 17-64) 
13-14 Blank 
15- 16 ESDID of first SD, XD, CM, FC, or ER 
in variable field 
17-64 Variable field. One to three 16-byte 
items of the following format: 
1 byte -- ESD type code 
The hex value is: 
00 SD 
01 LD 
02 ER 
04 PC 
05 CM 
06 XD(PR) 
3 bytes -- Address 
1 byte -- Alignment if XD; otherwise blank 
3 kytes -- Length, LDID, or klank 
65-72 Blank 
73-80 Deck ID and/or sequence number -- 
The deck ID is the name from the first TITLE 
statement that has a non-klank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long cr if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 
TEXT (TXT) Card Format 


The format of the TXT cards is as follows: 


Columns 


-4 


Urb os 


Contents 
12-2-9 funch 


TXRT 
Blank 
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6-8 Relative address of first instruction on card 


9-10 Blank 
11-12 Byte ccunt -- number of bytes in information 

field (columns 17-72) 
13-14 Blank 
15-16 ESCIC C 
17-72 56-byte information field 
73-80 Deck IDC and/or sequence number -- 


The deck ID is the name from the first TITLE 
statement that has a non-klank name field. 

The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 

there is ne name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 

of cards produced by FUNCH or REFRO statements 
do not contain a deck ID or a sequence number.) 


RLD Card Format 


The format of the FID card is as follows: 


Columns Contents 
1 12-2-S$ punch 
2-4 RLC 
5- 10 Blank 
11-12 Data field count -- number of bytes of 
informaticn in data field (columns 17-72) 
13-16 Blank 
17-72 Data field: 
17-18 Relocation ESDID 
19-20 Position ESDID fo 
21 Flag byte ‘\ _y/ 
22-24 Absolute address to be relccated 
25-72 Remaining RLD entries 
73-80 Ceck ID and/or sequence number -- 


The deck ID is the name from the first TITLE 
staterent that has a non-blank name field. 

The name can be 1 to 8 characters leng. If the 
name is less than 8 characters long or if 

there is no name, the remaining colurns ccn- 
tain a card sequence number. (Columns 73-80 

of cards produced by PUNCH or REPRO statements 
do net contain a deck ID or a sequence number.) 


If the rightmost bit of the flag byte is set, the follcwing RID entry 

has the same relccation ESLID and position ESDID, and this information 

will not ke repeated; if the rightmost bit of the flag byte is not 

set, the next RID entry has a different relocation ESDID and/or position 

ESCICLD, and both ESDIDs will ke recorded. : 


For example, if the RLD Entries 1, 2, and 3 of the PEOgT alr listing 
(Appendix C) centain the following information: 


Pesiticn Relccation 


ESDID ESDID Flag Address 
Entry 1 02 04 0c 000100 
Entry 2 02 04 0c 000104 
Entry 3 03 01 oc 000800 
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END Card Format 


The format of the END card is as follows: 


Columns Contents 

1 12-2-9 punch 

2-4 END 

5 Plank 

6-8 Entry address from operand of END card in 

source deck (blank if no operand) 

9-14 Biank 

15-16 ESCIC of entry point (klank if no operand) 
1I~39 Blank 

40-64 Version of the assembler (such as ASM H VI), 


time of the assembly (hh,mm), and date of 
the assembly (mm/dd/yy). See the "Asserbler 


wm. Listing" section.) 

CO 73-80 Deck ID and/or sequence numker -- 
The deck ID is the name from the first TITLE 
statement that has a non-klank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REFRC statements 
do not contain a deck ID or a sequence number.) 


TESTRAN (SYM) Card Format 


If you request it, the assemkler punches out synkclic infcrmation for 
TESTRAN concerning the assembled program. This output appears ahead 

cf all loader text. The format of the card images for TESTRAN output 
is as follows: 


Columns Contents 

1 12-2-9 punch 

2-4 SYM 

5-10 Blank 

11-12 Variable field count -- number of bytes of 


text in variaktle field (columns 17-72) 
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13-16 Blank 

17-72 Variatle field (see below) 

73-80 Ceck IEC and/or sequence number -- 
The deck ID is the name from the first TITLE 
statement that has a non-Elank name field. 
The nawe can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REFRC statements 
do not contain a deck ID or a sequence number.) 


The variakle field (cclumns 17-72) contains up to 56 bytes of TESTRAN 
text. The items making the text are packed together; consequently, 
only the last card may contain less than 56 bytes of text in the 
variakle field. The fcrnats of a text card and an individual text 
iter are shown in Figure 9. The contents of the fields within an 
individual entry are as follcws: 


Ts Crganization (1 byte) 
Eit 0: 

C 

1 


non-data type 
data type 


Bits 1-3 (if non-data type): 
000 = space. 


001 = contrcel section 

010 = dummy control section 
011 = common 

100 = instruction 

101 = CCW 


Rit 1 (if data type): 


0 = no multiplicity 
1 = multiplicity (indicates presence of M field) 
Bit 2 (if data type): 
0 = independent (not a packed or zoned decimal constant) 
1 = cluster (packed or zoned decimal constant) 
Bit 3 (if data type): 
0 = no scaling 
1 = scalirg (indicates presence of S field) 
Pit 4: 
0 = name present 
1 = name not present 
Bits 5-7: 
Length of nane minus 1 
2. Address (3 bytes) -- displacement from Lase cf control section 
3. Symbol Name (0-8 bytes) -- symbolic name of particular iter 


Note: The follcwing fields are present only for data-type items. 


4h. Data Type (1 byte) -- contents in hexadecimal 
00 = character 
04 = hexadecimal 
08 = binary 
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fixed pcint, full 


14 = fixed point, half 
18 = floating point, short 
1c = floating point, long 
"y 20 = A-type or Q-Type data 
es 24 = Y-type data 
28 = S-type data 
2C = V-type data 
30 = packed decimal 
34 = zoned decimal 
38 = floating point, extended. 


5 Length (2 bytes for character, hexadecimal decimal, or binary 
items; 1 byte for other types) -- length of data iter minus 1 


6. Multiplicity - M field (3 kbytes) -- equals 1 if not present 


Ts Scale - signed integer - S field (2 bytes) -- present only for 
F, H, E, D, P and Z type data, and only if scale is non-zero. 


1 2 45 1011 12.13 16 17 72:73 80 






Deck & Sequence 
ID number 








TESTRAN text — packed entries 











. Entry 
Entry N complete entries 
compete o tes cores 
end portion) 


Variable size entries 


Data Symbol 
1 3 0-8 1 1-2 3 2 


Figure 9. TESTRAN SYM Card Format 
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Appendix D. Dynamic Invocation of the Assembler 


The assembler can ke invoked by a problem program at execution time 
through the use of the CALI, LINK, XCTL, or ATTACH macro instruction. 
If the XCTL macre instruction is used to invoke the assembler, then 
ne user ortions may be stated. The assembler will use the standard 
default, as set during system generation, for each option. 


If the assembler is invoked ky CALL, LINK or ATTACH, you may supply: 
1) The assembler cpticns 


2) The DD names cf the data sets to be used during processing 


[symbol] IEVS0,(optionlist 
[,ddnamelist] ), VL 


EP=IEV90, 
PARAM=(optionlist 
[,ddnamelist] ),VL=1 





EP -- specifies the symbclic name of the assembler. The entry point 
at which execution is to begin is determined by the control program 
(from the litrary directory entry). 


PARAM -- specifies, as a sublist, address parameters to be passed from 
the problem program to the assembler. The first word in the 
address parameter list contains the address of the option list. 
The second word contains the address of the ddname list. 


orticnlist -- specifies the address of a variable length list containing 
the creticns. This address must be written even if no option list 
is provided. 


The option list must begin on a halfword boundary. The first two bytes 
ccntain a count of the number of bytes in the remainder of the list. 

If no cptions are specified, the count must be zero. The option list 
is free form with each field separated from the next by a comma, No 
blanks or zeros should appear in the list. 


ddnamelist -- specifies the address of a variable length list containing 
alternate DD names for the data sets used during compiler processing. 
If standard DD names are used, this operand may be omitted. 


The DD name list must begin on a halfword boundary. The first two 
bytes contain a count of the number of bytes in the remainder of the 
list. Each name of less than 8 bytes must Le left-justified and padded 
with blanks. If an alternate DD name is omitted, the standard name 
will be assumed. If the name is omitted within the list, the 8-byte 
entry must ccntain binary zeros. Names can be omitted from the end 
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merely ky shortening the list. The sequence of the 8-byte entries 
in the DD name list is as follows: 


Entry Alternate Name 
1 SYSLIN 
2 . not applicable 
3 not applicakle 
4 SYSLIB 
5 SYSIN 
6 SYSPRINT 
7 SYS FUNCH 
8 SYSUT1 


Note: An overriding DD narwe specified when Assembler H was added to 
the Operating System occupies the same place in the above list as the 
‘IBM-supplied DED name it overrides. The overriding ddname can itself 
ke overridden during invccaticn. For example, if SYSWORK1 replaced 
SYSUT1, it occupies position 8 in the above list. SYSWORK1 can be 
overridden Fy ancther name during invocation. 


VL -- specifies that the sign bit is to be set to 1 in the last word 
of the address parameter list. 
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